[RESOLVIDO]...DATAS INVERTENDO CODIGO EM ANEXO (EXEMPLO)

[Ronaldo Felix]

Boa tarde Amigos,

Preciso muito resolver esse trem aqui!!!

Estou com esse código em um TextBox tudo funcionando normal, o problema é que quando confirmo o formulário lança no Excel invertido a data, observei no fóruns e até terceiros mais não consegui sanar esse problema, por favor alguém Expert pra mim dar uma luz?

Grato!

SEGUE CODIGO:

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
TextBox4.MaxLength = 10

'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If

End Sub

[Reinaldo]

Não há nada nas rotinas postadas que gere o relatado. O que ocorre:
Por default um textbox "passa" seu conteudo como string/texto, mesmo que exibindo visualmente um numero ou data. Ao passar essa informação para a planilha as rotinas internas do apllicativo Excel tentam identificar o tipo de dado recebido e salvar o dado nesse formato.
Como a rotina interna do VBA "obedece" a programação interna que segue os parâmetros americanos, separador de milhar e virgula e decimal ponto; e datas, que é seu caso, preferencialmente são no padrão mm/dd/yyyy; então datas cujos dias sejam inferiores a 12 sofrem "essa Inversão". è preciso salvar na planilha utilizando-se FORMAT ou uma função de conversão tipo CDATE, no fórum ha muitos exemplos sobre isso de uma pesquisada.

[milton]

Ronaldo,
Eu tive esse mesmo problema... como disse o Reinaldo, adicione a função CDate antes do TextBox4 dentro do botão SALVAR. Não sei qual variável está usando, mas seria após o sinal de igual. Ex.: ........ = CDate(TextBox4.Text)
Espero ter ajudado. abraço

[Ronaldo Felix]

Muito Bem nobre Milton, Valeu mesmo funcionou perfeitamente, fico de devendo esta,

abraços!!!!