Hola , muy buen dia para todo .tengo una consulta que no se como resolver
Private Sub BotValidar_Click()
Dim usuario As String
Dim Pass As Variant
Dim HojaVisible As String
Dim UsuarioExistente
Dim DatoEncontrado
Dim Rango As Range
UsuarioExistente = application.WorksheetFunction.CountIf(Sheets("Auxiliar").Range("O:O"), Me.TxtUsuario.Value)
Set Rango = Sheets("Auxiliar").Range("B:B")
If Me.TxtUsuario.Value = "" Or Me.TxtPass.Value = 0 Then
MsgBox " Por favor introduce usuario y contrasenia", vbExclamation
Me.TxtUsuario.SetFocus
'se valida que el usuario exista en la tabla
ElseIf UsuarioExistente = 0 Then
MsgBox " El usuario" & Me.TxtUsuario & "no existe", vbExclamation
'En caso que el usuario exista, validamos su contrasenia
ElseIf UsuarioExistente = 1 Then ? DatoEncontrado = Rango.Find(What:=Me.TxtUsuario.Value, MatchCase:=False, lookat:=xlWhole).Address
Contrasenia = CStr(Usuarios.Range(DatoEncontrado).Offset(0, 1).Value)
' si el usuario y la contraseña coinciden...
If LCase(CStr(Usuarios.Range(DatoEncontrado).Value)) = LCase(Me.TxtUsuario.Value) And Contrasenia = _
Me.TxtPass.Value Then
Hola , muy buen dia para todo .tengo una consulta que no se como resolver
Private Sub BotValidar_Click()
Dim usuario As String
Dim Pass As Variant
Dim HojaVisible As String
Dim UsuarioExistente
Dim DatoEncontrado
Dim Rango As Range
UsuarioExistente = application.WorksheetFunction.CountIf(Sheets("Auxiliar").Range("O:O"), Me.TxtUsuario.Value)
Set Rango = Sheets("Auxiliar").Range("B:B")
If Me.TxtUsuario.Value = "" Or Me.TxtPass.Value = 0 Then
MsgBox " Por favor introduce usuario y contrasenia", vbExclamation
Me.TxtUsuario.SetFocus
'se valida que el usuario exista en la tabla
ElseIf UsuarioExistente = 0 Then
MsgBox " El usuario" & Me.TxtUsuario & "no existe", vbExclamation
'En caso que el usuario exista, validamos su contrasenia
ElseIf UsuarioExistente = 1 Then
? DatoEncontrado = Rango.Find(What:=Me.TxtUsuario.Value, MatchCase:=False, lookat:=xlWhole).Address
Contrasenia = CStr(Usuarios.Range(DatoEncontrado).Offset(0, 1).Value)
' si el usuario y la contraseña coinciden...
If LCase(CStr(Usuarios.Range(DatoEncontrado).Value)) = LCase(Me.TxtUsuario.Value) And Contrasenia = _
Me.TxtPass.Value Then
HojaVisible = Usuarios.Range(DatoEncontrado).Offset(0, 2).Value
If HojaVisible = "TODAS" Then
Call MostrarHojas
Else
Call OcultarHojas
ThisWorkbook.Sheets(HojaVisible).Visible = True
End If
' aqui va todo el codig para dar acceso a todo lo que el programador decida
Unload Me
Else
MsgBox " La contrasenia es invalida", vbExclamation
End If
End If
End Sub
En esta instruccion indicada con ? me arroja error 91.Variable de objeto o bloque with no establecido, como lo soluciono??