Dúvida com data

Tenho um formulário (userform) onde um dos campos deve ser preenchido com uma data, que por sua vez será lançado na coluna B, por exemplo.

Formatei a coluna toda para que exiba a data no formato dd/mm/aa.

O problema está na caixa de texto do formulário: se digitar 01/07/12 será lançado 01/07/12 na coluna B, sem problemas.

Porém se digitar abreviado (1/7 ou 1-7) será lançado 07/01/12, ou seja, mm/dd/aa.

Entendo que a caixa de texto do formulário está com formato diferente da planilha.

Como resolver isso para que o usuário não tenha contratempos?

Grato.

Aê, Jeff.

Testa essa...

[C5] = Format(TextBox1.Text, "mm/dd/yy")

Osvaldo, obrigado, mas onde eu escrevo esse comando?

Tentei no código do botão lançar do formulário mas não funcionou.

Se eu digito 12-4 ele lança 04/12/2011, se 23-5 lança 23-5 (sem ano, porque entendeu que não há 'mês' 23).

Quero que o usuário escreva a data de forma livre: 4/8, 4-8, 4-8-12, etc e o valor seja lançado na coluna no formato dd/mm/aa.

Será que algum comando a ser acrescentado no momento de lançar os dados?:

ws.Cells(lin, 3).Value = Me.txtData.Value

Grato.

substitua a linha abaixo, que você postou

ws.Cells(lin, 3).Value = Me.txtData.Value

por esta

ws.Cells(lin, 3) = Format(Me.textData.Text, "mm/dd/yy")

Osvaldo, perfeito!!!

Funcionou corretamente.

De novo, muito obrigado pela ajuda!

Parabéns pelo seu conhecimento e pela maneira com que você o compartilha!

Deus te abençoe.

Jé

Iaê, Jeff.

Valeu pelo retorno.

Ficamos contentes se você conseguiu resolver a parada.

abraço, nice Sunday.