Como nao colocou a linha em que joga a data para a planilha, tente :

Range("J1").Value = CDate(cdCadUltCont)

Pequise por Data invertida no forum e encontrara vários tópicos sobre esta questão.

Boa noite Mauro, Tdo baumm!!
Taum, eu já pesquisei muito sim, porém nenhuma opção deu certo pra mim Rss
Qto a Linha, preciso q tda a coluna J seje formatada pra receber as datas com dias e mêses corretos ok!
Muito grato ao seu rápido retorno.

É como eu disse, você só colocou a rotina que usa para formatar a data quando digita no textbox, e não a que envia para a planilha, então coloque qual a rotina usa para que possa ter uma resposta mais precisa.

[]s

Mauro,
Seria isso oq está pedindo?

No Form1, Utilizo o botão com este código:
Private Sub btCadCliente_Click()
CadastrarCadCliente

End Sub

E no Módulo,

Sub CadastrarCadCliente()
Linha = 5

Do Until Sheets("Clientes").Cells(Linha, 2) = ""
Linha = Linha + 1
Loop

Sheets("Clientes").Cells(Linha, 10) = UserForm1.cdCadUltCont.Text

MsgBox ("Cadastrado com Sucesso")
LimparCadCliente

End Sub

Experimente uma das duas instruções :

Sheets("Clientes").Cells(Linha, 10).Value = Format(Me.cdCadUltCont.Text, "mm/dd/yyyy")

ou

Sheets("Clientes").Cells(Linha, 10).Value = CDate(cdCadUltCont.Value)

[]s

Erro nas 2 opções
1ª Deu uso inválido palavra chave (amarelo em Me.)
2ª Deu Objeto obrigatório

??

Erro nas 2 opções
1ª Deu uso inválido palavra chave (amarelo em Me.)
2ª Deu Objeto obrigatório

??

Jc, ewstou supondo que o controle "cdCadUltCont" é um textbox e está no formulário, se for isto não deveria dar erro, "ME" representa o form em que está o controle, de qualquer forma tente :

Sheets("Clientes").Cells(Linha, 10).Value = Format(UserForm1.cdCadUltCont.Text, "mm/dd/yyyy")
ou
Sheets("Clientes").Cells(Linha, 10).Value = CDate(UserForm1.cdCadUltCont.Value)

Boa tarde Mauro,
Me desculpe não ter especificado, mas não são TextBox, são ComboBox Ok!

Boa tarde Mauro,
Me desculpe não ter especificado, mas não são TextBox, são ComboBox Ok!

Jc, citei textbox, mas não importa qual controle, se o mesmo está no formulário as instruções que passei irão funcionar, se não der certo, alguma informação está passando despercebida e o ideal seria verificar direto no modelo.

[]s

Negativo, os erros continuam

Mauro e jcgmc

É por isso que eu só respondo tópicos com uma planilha de exemplo anexada.
A pior coisa que tem, é ficar dando tiro no escuro.

[]s

Patropi, tdo baumm!
Cara oq eu kero fazer é coisa simples neh!!!
Olha só, qdo eu digito a data 11/07/15 manualmente, a celula aceita corretamente os números, mas qdo é via Form, o dia é trocado pelo mês. Então eu pensei em fazer um código que já deixe a coluna J, já pronta pra receber os números como em texto puro, independente de ser via Form, TextBox ou ComboBox tndeu!
E não achei q a coisa iria se arrastar tanto assim, por ser tão a toa pra VCs Experts do Planilhando. Rssss
Msm assim obrigado à VCs.
Abraço.

jcgmc

No VBA por padrão, o mês vem trocado, porque o padrão de data utilizado é o americano.
A solução proposta pelo Mauro é a indicada, pois ela corrige a formatação para o nosso padrão.
Não tem como deixar a coluna preparada, pois quando os dados forem lançados, se não tiverem essa instrução para modificar o formato, eles virão formatados como data formato americano.

[]s

O que o Patropi colocou está correto, e as instruções que passei tinham de a principio resolver, como eu disse alguma informação de sua parte não está correta ou não está fazendo da forma correta.
Quanto a aplicar formatação diretamente nas celulas você tem de utilizar NumberFormat, de uma olhada no tópico abaixo e veja se ajuda, se ainda assim não der certo, só com o modelo para analisar.

Formatar Celulas VBA
viewtopic.php?f=10&t=1827

[]s