Jump to content
Fórum Script Brasil
  • 0

Erro 91 em programação de cadastro


Question

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 to post
Share on other sites

1 answer to this question

Recommended Posts

  • 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 to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149405
    • Total Posts
      645894
×
×
  • Create New...