Hello good day.

I have a problem that started recently and do not know how resolver.tenho a system in excel VBA and this sitema save certain data from a form on a spreadsheet that serves as a database. when it sends the data to the worksheet it saves the correct date format which is dd / MM / yyyy but when I do I make the search for data and make the change by adding another date ie the date of the end he saved in MM / dd / yyyy and how I live in Brazil this date does not serve. What can it be?

First-pass translation, for those who don't read Portuguese:Laercio, three questions:

1) Is it VBA code that places the start date in dd/mm/yyyy? I mean, is the start date being placed in the worksheet by VBA code, or by some other method (such as by hand)? I'm not sure from your description.

2) Is it VBA code that places the end date in mm/dd/yyyy? I think you're saying it is.

3) Is it the same VBA statement in both cases? Surely it isn't.

So what I suspect is happening here is that the VBA statement that's putting the end date in your worksheet is doing it wrong; either it's specifying mm/dd/yyyy, or it isn't specifying the format at all and the default format is wrong. To find out which you'll have to look at that VBA statement, and to fix it you might have to change that VBA statement. So the first thing is to find it and post it here. Do you know how to do that? I can't tell from your first post whether you can find your way around a VBA program.

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"

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"

Thank you for your attention.