Ir para conteúdo
Fórum Script Brasil
  • 0

Erro 91 em programação de cadastro


RaulSeixas

Pergunta

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?

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

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")

 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...