Erro 91 em programação de cadastro

[RaulSeixas]

Olá estou fazendo um formulário no VBA e estou mexendo no botão de salvar. Num dos meus códigos ouve um problema de erro 91 (a variavel do objeto ou a variavel do bloco with não foi definida), o código em especifico que identifiquei como causador do erro é esse:

Private Sub CommandButton1_Click()

If Senha = Senha_confirmar Then
    MsgBox ("ok")
    Else
    MsgBox ("senha não compativel")
    Exit Sub
End If

CPF_repetido = Worksheets("Registro").Cells.Find(CPF)

If CPF = CPF_repetido Then
    MsgBox ("Já exise um CPF igual a esse!" + vbCrLf + "Por favor escreva outro")
    Exit Sub
    
End If
    
Login_repetido = Worksheets("Registro").Cells.Find(Login)

If Login = Login_repetido Then
    MsgBox ("Já exise um login igual a esse!" + vbCrLf + "Por favor escreva outro")
    Exit Sub
End If

linha = Sheets("Registro").Range("A1").End(xlDown).Row + 1 'planilha registro, celula A1, usar Ctrl+down ultima celula + 1 (contando))
Sheets("Registro").Cells(linha, 1) = Login.Value
Sheets("Registro").Cells(linha, 2) = CPF.Value
Sheets("Registro").Cells(linha, 3) = Senha.Value

If Botão_homem.Value = True Then
    Sheets("Registro").Cells(linha, 4) = "Homem"
    Else
    Sheets("Registro").Cells(linha, 4) = "Mulher"
End If

Unload Cadastro 'fechar formulario

MsgBox ("Cadastro bem sucedido")

End Sub

 

descobri isso pois ao tirar essa parte funciona perfeitamente, alguém sabe me dizer o por que disso?

[Alyson Ronnan Martins]

Boa noite.

Verifica se agora o erro passa:

If Senha = Senha_confirmar Then
    Msgbox ("ok")
    Else
    Msgbox ("senha não compativel")
    Exit Sub
End If

Set CPF_repetido = Worksheets("Registro").Cells.Find(CPF)
If CPF_repetido Is Nothing Then
ElseIf CPF = CPF_repetido Then
    Msgbox ("Já exise um CPF igual a esse!" + vbCrLf + "Por favor escreva outro")
    Exit Sub
    
End If
    
Set Login_repetido = Worksheets("Registro").Cells.Find(Login)
If Login_repetido Is Nothing Then
ElseIf Login = Login_repetido Then
    Msgbox ("Já exise um login igual a esse!" + vbCrLf + "Por favor escreva outro")
    Exit Sub
End If

linha = Sheets("Registro").Range("A1").End(xlDown).Row + 1 'planilha registro, celula A1, usar Ctrl+down ultima celula + 1 (contando))
Sheets("Registro").Cells(linha, 1) = Login.Value
Sheets("Registro").Cells(linha, 2) = CPF.Value
Sheets("Registro").Cells(linha, 3) = Senha.Value

If Botão_homem.Value = True Then
    Sheets("Registro").Cells(linha, 4) = "Homem"
    Else
    Sheets("Registro").Cells(linha, 4) = "Mulher"
End If

Unload Cadastro 'fechar formulario


Msgbox ("Cadastro bem sucedido")