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