VBA - EXCEL INVERTE DATA AO GRAVAR DO TEXTBOX.
Buenas a todos.
Faz um tempo que não vinha a qui ao site, mas aqui estou eu precisando de uma ajuda.
Estou montando um cadastro em VBA para a empresa que trabalho.
o Arquivo as telas os códigos tudo funcionando sem qualquer problema até à hora que clico para gravar as informações do cadastro no Excel.
O Texbox Data quando digitada a data ela fica correta, mas quando grava no Excel o dia fica invertido pelo mês.
Já tentei de tudo e sem sucesso.
Se tiver alguém que me dê uma luz eu fico muito agradecido.
Estou enviando em anexo o arquivo para facilitar na ajuda e também se alguém precisar os códigos estão praticamente todos comentados..
Desde já agradeço.
Att
Faz um tempo que não vinha a qui ao site, mas aqui estou eu precisando de uma ajuda.
Estou montando um cadastro em VBA para a empresa que trabalho.
o Arquivo as telas os códigos tudo funcionando sem qualquer problema até à hora que clico para gravar as informações do cadastro no Excel.
O Texbox Data quando digitada a data ela fica correta, mas quando grava no Excel o dia fica invertido pelo mês.
Já tentei de tudo e sem sucesso.
Se tiver alguém que me dê uma luz eu fico muito agradecido.
Estou enviando em anexo o arquivo para facilitar na ajuda e também se alguém precisar os códigos estão praticamente todos comentados..
Desde já agradeço.
Att
Buneas
Uma vez que ninguém respondeu eu posto a solução do problema que consegui com alguma pesquisa na rede e ajuda de outros foruns... aà vai.
Para o projeto em questão o código a se incluso:
Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
With wsQUALIDADE_DO_FORNECEDOR
.Cells(indice, colCodigo).Value = id
While Not IsDate(txtdata.Value)
txtdata.Value = InputBox([Ô]Insira uma data válida![Ô])
Wend
.Cells(indice, colData).Value = CDate(txtdata.Value)
-
-
-
End Sub
Em anexo o arquivo com o código alterado e o OCX.
No mesmo arquivo um outro com novo layout aprimorado e também um novo OCX.
Para quem tiver dificuldades como eu pode usar e abusar.
Abraços a todos.
Uma vez que ninguém respondeu eu posto a solução do problema que consegui com alguma pesquisa na rede e ajuda de outros foruns... aà vai.
Para o projeto em questão o código a se incluso:
Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
With wsQUALIDADE_DO_FORNECEDOR
.Cells(indice, colCodigo).Value = id
While Not IsDate(txtdata.Value)
txtdata.Value = InputBox([Ô]Insira uma data válida![Ô])
Wend
.Cells(indice, colData).Value = CDate(txtdata.Value)
-
-
-
End Sub
Em anexo o arquivo com o código alterado e o OCX.
No mesmo arquivo um outro com novo layout aprimorado e também um novo OCX.
Para quem tiver dificuldades como eu pode usar e abusar.
Abraços a todos.
Tópico encerrado , respostas não são mais permitidas