ingreso usuario, buscando datos en otra carpeta
Publicado por mabel (1 intervención) el 15/04/2018 03:11:07
hola y buenas a todos, espero alguien me pueda ayudar en un estancamiento. copie un formulario de ingreso de usuario, pero realice unos pequeños cambios para que el formulario se mostrara en una hoja pero los datos de; usuario y contraseña se encuentran en otra hoja del mismo libro, el tema esta no esta funcionando en la parte que debiera aceptar la contraseña y el usuario y sale como "contraseña invalida".
COMO DATO ADICIONAL, el formulario la quiero hacer funcionar en carpeta X, pero los datos de contraseña los tengo en una carpeta llamada "usuarios".
id nombre usuario contraseña
1 alejandra jelvez ale aaa
2 jose bastias jbastias bbb
3 ignacia rubio irubio ccc
4 omar marchant omarchant ddd
por favor necesito su ayuda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
Dim usuario As String
Dim password As Variant
Dim DatoEncontrado
UsuarioExistente = Application.WorksheetFunction.CountIf((Sheets("usuarios").Range("d3:d20")), Me.TextBox1.Value)
Set rango = Worksheets("usuarios").Range("d3:d20")
If Me.TextBox1.Value = "" Or Me.TextBox2.Value = "" Then
MsgBox "Por favor introduce usuario y contraseña", vbExclamation
Me.TextBox1.SetFocus
ElseIf UsuarioExistente = 0 ThenMsgBox "El usuario '" & Me.TextBox1 & "' no existe", vbExclamation
ElseIf UsuarioExistente = 1 ThenDatoEncontrado = rango.Find(What:=Me.TextBox1.Value, MatchCase:=True, lookat:=xlWhole).Address
EN ESTA PARTE SE PEGA, O SE DEPURA O SIMPLEMENTE LA SALTA SEGUN EL MOMENTOContrasenia = Range(DatoEncontrado).Offset(0, 2).Value
If Range(DatoEncontrado).Value = Me.TextBox1.Value And Contrasenia = Me.TextBox2.Value Then
Range("G2").Value = "Usuario: " & Range(DatoEncontrado).Offset(0, -1).Value
Unload Me
Else
MsgBox "La contraseña es inválida", vbExclamation, Blog
End If
End If
End Sub
COMO DATO ADICIONAL, el formulario la quiero hacer funcionar en carpeta X, pero los datos de contraseña los tengo en una carpeta llamada "usuarios".
id nombre usuario contraseña
1 alejandra jelvez ale aaa
2 jose bastias jbastias bbb
3 ignacia rubio irubio ccc
4 omar marchant omarchant ddd
por favor necesito su ayuda
Valora esta pregunta
0