Excel Data invertida no VBA

[Leodenir Tizolim de Souza]

Olá!

 

Tenho um pequeno problema com as datas, em uma planilha para controle de cheques, no VBA, Ex: digito 01/03/2019 e o Excel grava 03/01/2019.

*O problema é que sou quase analfabeto em VBA, rsrsrsrs

Preciso que grave as datas no formato brasileiro.

 

Esse é o código que estou usando:

 

Sub Cadastro()

 

'Exibir planilha

 

Sheets("Cadastro").Visible = True

Sheets("Cadastro").Select

vCMC7 = InputBox("CMC7", "Cadastro")
vValor = InputBox("Valor (R$)", "Cadastro")
vDataBoa = InputBox("Data Boa (dd/mm/aaaa)", "Cadastro")
vLote = InputBox("Lote (dd/mm/aaaa)", "Cadastro")

Range("a2") = vCMC7
Range("b2") = vValor
Range("c2") = vDataBoa
Range("d2") = vLote

 

'Ocultar planilha
'Sheets("Cadastro").Visible = False

End Sub
 

 

Agradeço desde já.

Leodenir

 

[Visitante]

Substitua as duas linhas abaixo

Range("c2") = vDataBoa
Range("d2") = vLote

 

por estas

Range("C2") = Format(vDataBoa, "mm/dd/yyyy")
Range("D2") = Format(vLote, "mm/dd/yyyy")

 

[Leodenir Tizolim de Souza]

52 minutos atrás, osvaldomp disse:

Substitua as duas linhas abaixo

Range("c2") = vDataBoa
Range("d2") = vLote

 

por estas

Range("C2") = Format(vDataBoa, "mm/dd/yyyy")
Range("D2") = Format(vLote, "mm/dd/yyyy")

 

 

Muitíssimo obrigado, funcionou perfeitamente.

 

Leodenir