Thread: Date format in excel vba
View Single Post
 
Old 08-09-2013, 06:32 AM
LaercioNB LaercioNB is offline Windows 7 32bit Office 2010 32bit
Novice
  
Join Date: Aug 2013
Posts: 4
LaercioNB is on a distinguished road
Default
I believe that solved my problem was a lack of attention not because my tava stating that the textbox was a date masfiz this change and it worked but thanks for listening'll post the routine before and after the change
Routine before:
Private Sub btnSalvar_alteração_Click()
'Box com o conteudo encontrado

On Error Resume Next

Windows("Escopo da reunião de manutenção1.xlsM").Activate


If Me.CheckBoxSim = True And Me.cdObservação = "" Then
MsgBox "Favor informar o no campo obeservação a necessidade de reprogramação. "

Else
Me.cdPrograma.Text = Format(Me.cdPrograma.Text, "dd/mm/yyyy")


Sheets("Controle de compras").Cells(MatrizResultados(0), 3).Value = cdSetor.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 6).Value = cdNumero.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 5).Value = cdTag.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 4).Value = CdEquipamento.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 8).Value = cdSolicitante.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 9).Value = cdDescrição.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 22).Value = cdEstatus.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 24).Value = cdObservação.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 2).Value = cdArea.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 16).Value = cdORDEM.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 11).Value = cdPedido.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 18).Value = cdTipo.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 19).Value = cdManutentor.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 12).Value = cdValor.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 10).Value = cdEntrega.Text 'numero requisição
Sheets("Controle de compras").Cells(MatrizResultados(0), 21).Value = cdHoraExecu.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 32).Value = cdHoraPro.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 17).Value = cdPrograma


Sheets("Controle de compras").Cells(MatrizResultados(0), 15).Value = cdDataChegada
If Me.CheckBoxSim = True Then
Sheets("Controle de compras").Cells(MatrizResultados(0), 6).Value = cdNumero.Text & "-" & "REPROGRAMADO"

Sheets("Controle de compras").Cells(MatrizResultados(0), 23).Value = CheckBoxSim
Sheets("Controle de compras").Cells(MatrizResultados(0), 25).Value = cdInsp.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 26).Value = cdNuInsp.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 27).Value = cdInspRes.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 30).Value = cdData.text
Sheets("Controle de compras").Cells(MatrizResultados(0), 31).Value = cdquantec.Text

Windows("Escopo da reunião de manutenção1.xlsM").Close savechanges:=True

MsgBox "Alteração efetuada com Sucess"

Routine after the change note that I stated that my textbox is a date.

Windows("Escopo da reunião de manutenção1.xlsM").Activate


If Me.CheckBoxSim = True And Me.cdObservação = "" Then
MsgBox "Favor informar o no campo obeservação a necessidade de reprogramação. "

Else
Me.cdPrograma.Text = Format(Me.cdPrograma.Text, "dd/mm/yyyy")


Sheets("Controle de compras").Cells(MatrizResultados(0), 3).Value = cdSetor.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 6).Value = cdNumero.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 5).Value = cdTag.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 4).Value = CdEquipamento.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 8).Value = cdSolicitante.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 9).Value = cdDescrição.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 22).Value = cdEstatus.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 24).Value = cdObservação.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 2).Value = cdArea.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 16).Value = cdORDEM.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 11).Value = cdPedido.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 18).Value = cdTipo.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 19).Value = cdManutentor.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 12).Value = cdValor.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 10).Value = cdEntrega.Text 'numero requisição
Sheets("Controle de compras").Cells(MatrizResultados(0), 21).Value = cdHoraExecu.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 32).Value = cdHoraPro.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 17).Value = CDate(cdPrograma)


Sheets("Controle de compras").Cells(MatrizResultados(0), 15).Value = CDate(cdDataChegada)
If Me.CheckBoxSim = True Then
Sheets("Controle de compras").Cells(MatrizResultados(0), 6).Value = cdNumero.Text & "-" & "REPROGRAMADO"

Sheets("Controle de compras").Cells(MatrizResultados(0), 23).Value = CheckBoxSim
Sheets("Controle de compras").Cells(MatrizResultados(0), 25).Value = cdInsp.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 26).Value = cdNuInsp.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 27).Value = cdInspRes.Text
Sheets("Controle de compras").Cells(MatrizResultados(0), 30).Value = CDate(cdDataExecu)
Sheets("Controle de compras").Cells(MatrizResultados(0), 31).Value = cdquantec.Text






Windows("Escopo da reunião de manutenção1.xlsM").Close savechanges:=True


MsgBox "Alteração efetuada com Sucesso"
Reply With Quote