Comparar desde Userform
Hola necesito que me ayuden con una userform:
En una hoja tengo una tabla así:
User\nombre\Pass
01\Juan\aa
02\Pedro\bb
03\Luis\cc
En la userform tengo un campo en el que pondré el User y en otra pondré la pass que sera la clave. Si la pass no es correcta me dará un Msg de incorrecto. Pero si coincide User y Pass en otro campo se mostrara en nombre. He tratado con un Vlookup pero no me resulta.. No sé si con un While quizá... De antemano gracias..
En una hoja tengo una tabla así:
User\nombre\Pass
01\Juan\aa
02\Pedro\bb
03\Luis\cc
En la userform tengo un campo en el que pondré el User y en otra pondré la pass que sera la clave. Si la pass no es correcta me dará un Msg de incorrecto. Pero si coincide User y Pass en otro campo se mostrara en nombre. He tratado con un Vlookup pero no me resulta.. No sé si con un While quizá... De antemano gracias..
1 Respuesta
Respuesta de Eduard Caballero
1
Prueba con lo siguiente.
Private Sub CommandButton1_Click()
Dim busqueda2 As String
Dim busqueda1 As String
Worksheets("Hoja1").Activate
Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox ("No se encontro resultados")
Else
resp.Activate
busqueda1 = ActiveCell.Offset(0, 1).Value
busqueda2 = ActiveCell.Offset(0, 2).Value
If busqueda2 = TextBox2.Value Then
MsgBox ("Bienvenido " & busqueda1)
Else
MsgBox ("Contraseña Invalida")
End If
End If
End Sub
Private Sub CommandButton1_Click()
Dim busqueda2 As String
Dim busqueda1 As String
Worksheets("Hoja1").Activate
Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox ("No se encontro resultados")
Else
resp.Activate
busqueda1 = ActiveCell.Offset(0, 1).Value
busqueda2 = ActiveCell.Offset(0, 2).Value
If busqueda2 = TextBox2.Value Then
MsgBox ("Bienvenido " & busqueda1)
Else
MsgBox ("Contraseña Invalida")
End If
End If
End Sub
Si te sirvió la respuesta
Hola
Por favor agradezco finalizar la pregunta.
Gracias
Saludos
Por favor agradezco finalizar la pregunta.
Gracias
Saludos
