Bom dia!!
Favor revisar o seu projeto, pois sua adaptação ainda falta alguns detalhes!!
Essa variável está errada colDataDataNascimento deveria ser colDataNascimento
Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
With wsCadastro 'Qual a guia que recebe esse nome
.Cells(indice, colNumeroCliente).Value = id
.Cells(indice, colNomeCliente).Value = Me.txtNomeCliente.Text
.Cells(indice, colCPF).Value = Me.txtCPF.Text
.Cells(indice, colEndereço).Value = Me.txtEndereço.Text
.Cells(indice, colCidade).Value = Me.txtCidade.Text
.Cells(indice, colEstado).Value = Me.txtEstado.Text
.Cells(indice, colTelefone).Value = Me.txtTelefone.Text
.Cells(indice, colDataDataNascimento).Value = Me.txtDataNascimento.Text
.Cells(indice, colCEP).Value = Me.txtCEP.Text
.Cells(indice, colEmail).Value = Me.txtEmail.Text
End With
Call AtualizaRegistroCorrente
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/12/2016 7:41 am