Este fórum está sendo desativado

[douglasgoulart40]

Boa noite!
Está aparecendo o erro em tempo de execução 1004: erro de definição de aplicativo ou definição de objeto. O erro aparece onde está na cor azul.
Private Sub cmd_cadastrar_Click()
Sheets("Cadastro").Activate

lin = Range("A2").End(xlDown).Row + 1
Cells(lin, 1) = txtnome.Value

Cells(lin, 2) = cb_sexo.Value
Cells(lin, 3) = txtcpf.Value
Cells(lin, 4) = txtrg.Value
Cells(lin, 5) = txtendereco.Value
Cells(lin, 6) = txtbairro.Value
Cells(lin, 7) = txtcidade.Value
Cells(lin, 8) = cb_uf.Value
Cells(lin, 9) = txttelefones.Value
Cells(lin, 10) = txtproduto.Value
Cells(lin, 11) = txtcor.Value
Cells(lin, 12) = txtvalor.Value
Cells(lin, 13) = txtfrete.Value
Cells(lin, 14) = txttotal.Value
Cells(lin, 15) = cb_formapgto.Value
Cells(lin, 16) = txtobservacoes.Value
nome = txtnome.Value
sexo = cb_sexo.Value
MsgBox "Dados cadastrados com sucesso!"
End Sub

Alguém pode me ajudar?
Aguardo respostas!

[douglasgoulart40]

Olá pessoal,

estou anexando o arquivo para que possam dar uma olhada no código. Desde já agradeço qualquer tipo de ajuda!

[osvaldomp]

Substitua esta linha

Código: Selecionar todos

lin = Sheets("Cadastro").Range("A2").End(xlDown).Row + 1

por esta

Código: Selecionar todos

lin = Sheets("Cadastro").Cells(Rows.Count, 1).End(xlUp).Row + 1

[douglasgoulart40]

E porque acontece o erro? Sendo que estou acompanhando uma video aula no Youtube.
Forte abraço!

[douglasgoulart40]

Fala meu amigo, blz?
Coloquei esse código antes:

SHEETS("base").SELECT

E deu certo!!!!

Obrigado e Deus te abençoe!!!

Tmj!