Bom dia Palandi!
Na verdade alguns aplicativos excel não reconhecem uma data como data, uma vez que você define-a como texto.
Existe uma solução no seu próprio excel de configuração, que não lembro como fazer. Mas tenho algo que possa resolver.
Faça o seguinte:
Tente Localizar o código abaixo, que se encontra no âmbito do Userform( se tiver dúvida da um dobleclick no seu "UserForm", que vai abrir a tela dos codigos em VBA).
Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
With wsCadastroClientes
.Cells(indice, colCodigo).Value = id
.Cells(indice, colNome).Value = Me.txtNome.Text
.Cells(indice, colEndereco).Value = Me.txtEndereco.Text
.Cells(indice, colCidade).Value = Me.txtCidade.Text
.Cells(indice, colEstado).Value = Me.txtEstado.Text
.Cells(indice, colCep).Value = Me.txtCep.Text
.Cells(indice, colTelefone).Value = Me.txtTelefone.Text
.Cells(indice, colEmail).Value = Me.txtEmail.Text
End With
Call AtualizaRegistroAtual
Altere a seguinte linha:
.Cells(indice, colNome).Value = Me.txtNome.Text
Por:
.Cells(indice, colNome).Value = CDate(Me.txtNome.Text)
Explicação:
O que eu indiquei é que você converta o textbox, armazenado como texto, em data com o código CDate("Seu TextBox Aqui" ).
Testei e não deu erro.
Se tiver dúvidas respondo quando puder.
Postado : 03/01/2014 7:37 am