Ir para conteúdo
Fórum Script Brasil

RaulSeixas

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Posts postados por RaulSeixas

  1. 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?

×
×
  • Criar Novo...