algo tipo isso?

Range("a1") = Format(Date, "dd/mm/yyyy")

Nota: basta trocar "Date" pela informação que vc tem de data, ou seja, se estivesse:

CélulaEscolhida = SuaData

Ficaria

CélulaEscolhida = Format(SuaData, "dd/mm/yyyy")

Boa tarde amigos,

Eu resolvi este mesmo tipo de problema assim:

ThisWorkbook.Worksheets(NomePlan).Cells(intLinha, 1) = CDate(Data.Value)

Troque "Data" pelo nome do seu TextBox.

Tente assim....

Eu tive o mesmo problema e resolvi desta forma......
Ah...não esquece de formatar a célula como dd/mm/yy ou dd/mm/yyyy

Abraços!

Bom dia

ja resolvi o meu problema, mas não entendi porque no text eu digito a data certa e quando vai para aplailha fica invertida.

abraço.

Valdecirrk,

Bom dia!

Você já resolveu o problema da Data e quer só saber o porque dela invertida?
Ou ainda precisa alterar a data?

Att,

Só saber o prq mesmo.

valdecirrk,

Em VBA, a língua padrão é o inglês, onde a data fica como "MM/DD/AAAA"

Então, o mais normal é que ela tenha esse formato, e por isso, vc precisa especificar o formato que deseja, no caso, o brasileiro - DD/MM/AAAA.

Só para constar, o tópico onde está a solução:
viewtopic.php?f=10&t=10545

Os txt's por default "passam" os dados recebidos como string/texto; e a "linguagem" básica no VB editor é a inglesa/Americana com "valor" base para datas de m/d/y(mês/dia/ano); assim ao receber uma string de data é feita a conversão ao padrão do sistema; se a string data tiver os dois primeiros dígitos menor ou igual a 12 e considerado mês, então "surge" a inversão verificada.