VB6 Excel - Cadastro Contatos

[leno mota]

Olá Pessoal!

Alguem sabe dizer onde eu errei? O código abaixo (que está dentro de um UserForm), não salva os dados na próxima linha em branco da minha planilha!

Agradeço se alguém me der uma luz!

Option Explict
Const Cod_Cont As Integer = 0
Const Nome_Empresa As Variant = 1

Private Salvar As Boolean
Private Contatos As Worksheet
________________________________


Private Sub CmdSalvarContato_Click ()
      Dim NewContato As Object
           Set NewContato = Plan1.Range("A1048576").End(xlUp)
                With Contatos
                     NewCont.Offset(1,Cod_Cont).Value = TxtCodCont.Value
                     NewCont.Offset(1,Nome_Empresa).Value = TxtNomeCont.Value
                 End With
      End Sub

Qualquer ajuda é bem vinda.

[leno mota]

Faltava um if para testar a condição...

    If ActiveCell.Value = vbNullString Then
        With Contatos
            NewContato.Offset(1, Cod_Cont).Value = Etc...
            NewContato.Offset(1, Nome_Empresa).Value = "E tal"
        End With
    End If

Moderador pode encerrar o tópico.

[DiF]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.