Problema com o código do exercício de criação de formulário de cadastro de telefone

Olá Franciane,

Provavelmente a sua célula A2 está vazia, Observe no enunciado do exercício que na A2 você deve escrever "Nome do amigo", e a primeira célula vazia deve ser a A3, Verifique antes de rodar a macro

QQ dúvida entre em contato com a gente aqui pelo Fórum

Abraço

Equipe do Prof. Sabino

Olá!

Por incrível que pareça, a célula A2 está preenchida. Toda vez que tento salvar um novo nome na lista, aparece o erro.

Olá Franciane, tudo bem? Espero que sim!

Desculpe pela demora em retornar.

A sugestão de solução da atividade estava incorreta, o correto é selecionar a célula A1 a princípio. Caso comece pela célula A2, o código irá até a última célula da planilha e ocorrerá um erro.

A atividade foi corrigida. Obrigado por enviar aqui no fórum para ajudar a identificar o erro.

Com isso o código final é o seguinte:

Private Sub CmdIncluir_Click()
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
Planilha1.Cells(ActiveCell.Row, 1) = txtAmigo
Planilha1.Cells(ActiveCell.Row, 2) = txtTelefone
    txtAmigo = vbNullString
    txtTelefone = vbNullString
End Sub

Bons estudos!