Como Validar varios usuarios y claves en un formulario
Hola amigo
Como te comente anteriormente sobre este tema como puedo hacer para que el formulario que tengo para validación de usuario y clave pueda funcionar con más de un usuario pues en la actualidad solamente funciona con los datos que están en la hoja LISTAS en las celdas E3 y F3 pero en el caso que se ingresen más usuarios en las líneas siguientes que código debo usar para que me los pueda identificar a cada usuario con su respectiva clave.
A continuación te dejo el código que actualmente utilizo
Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
If (N_Usuario) = Sheets("Listas").Range("E3") And _
(N_Clave) = Sheets("listas").Range("F3") Then
Unload Me
Form_Pagos.Show
Else
MsgBox "EL USUARIO Y LA CLAVE INGRESADA SON INCORRECTOS, POR FAVOR VERIFIQUE LOS DATOS INGRESADOS", vbInformation + vbCritical
N_Usuario = Empty
N_Clave = Empty
N_Usuario.SetFocus
End If
Gracias
End Sub
1 Respuesta
Te regreso la macro actualizada
Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
Set h1 = Sheets("Listas")
For i = 1 To Range("E" & Rows.Count).End(xlUp).Row
If N_Usuario = h1.Range("E" & i) And N_Clave = h1.Range("F" & i) Then
existe = True
Exit For
End If
Next
'
If existe Then
Unload Me
Form_Pagos.Show
Else
MsgBox "EL USUARIO Y LA CLAVE INGRESADA SON INCORRECTOS, POR FAVOR VERIFIQUE LOS DATOS INGRESADOS", vbInformation + vbCritical
N_Usuario = Empty
N_Clave = Empty
N_Usuario.SetFocus
End If
End Sub
Hola amigo
Ya copie el código que me enviaste pero no me reconoce ningún usuario ni clave, siempre me da el mensaje de error
Revisa bien todos los nombres de la macro
Debes tener una hoja "Lista"
un textbox N_usuario
otro textbox N_Clave
Los nombres que pongas en el textbox deben ser iguales a los de las celdas, es decir, deben ser exactamente iguales en mayúsculas y minúsculas
Si pones en el textbox Dante en la hoja debes tener Dante
Los nombres deben estar en la columna E y las claves en la columna F
