none
Erro em tempo de execução '9' RRS feed

  • Pergunta

  • Boa noite, estou tentando fazer uma validação para login e senha no vba, ele buscara as informações numa planilha, mas ele não executa pois da um erro de tempo de execução e não consigo entender esse erro. Gostaria que vocês pudessem me dar um help.

    Código:

    Private Sub BtnEntrar_Click()

    If txtUsuario = "" Then
        MsgBox "Digite o seu email!", vbInformation, "ERRO!"
        txtUsuario.SetFocus
    ElseIf txtSenha = "" Then
        MsgBox "Digite sua senha", vbInformation, "ERRO!"
        txtSenha.SetFocus
    End If

        Dim valido As Boolean
        
        Do
            
            Worksheets("Plan1").Range ("A4:A") _ linha do erro
            If SearchValue = txtUsuario.Value Then
            
                If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                nextAddress = c.Address
                Loop While Not c Is Nothing And c.Address <> firstAddress
                End If
                valido = True
            Else
                MsgBox "Email incorreto", vbInformstion, "Erro!"
            End If
            
            Worksheets("DadosLogin").Range ("B4:B")
            If SearchValue = txtSenha.Value Then
            
                If Not s Is Nothing Then
                firstAddress = s.Address
                Do
                nextAddress = s.Address
                Loop While Not s Is Nothing And s.Address <> firstAddress
                End If
                valido = True
                TelaPrincipal.Show
            Else
                MsgBox "Senha incorreta", vbInformstion, "Erro!"
                valido = False
            End If
        Loop Until valido = True
    End Sub

    domingo, 14 de outubro de 2018 03:31

Todas as Respostas

  • Boa noite Álvaro. Qual a intenção da linha onde você aponta o erro? Além disso note que a sintaxe está errada, faltando um número após o "A":

     Worksheets("Plan1").Range ("A4:A") _ linha do erro


    Filipe Magno

    domingo, 14 de outubro de 2018 21:53