Ubicar la posición de una celda y copiar el valor
Un favor podría ayudarme con esto, tengo el siguiente código:
Private Sub CommandButton1_Click()
Dim DatoEncontrado
Blog = "TCP - Tabla de Control de Producción"
If Usuarios = "" Or txtPassword = "" Then
MsgBox "Por favor ingrese usuario y contraseña", vbExclamation, Blog
Me.Usuarios.SetFocus
Else
If WorksheetFunction.VLookup(Usuarios.value, Sheets(1).Range("C91:D100"), 2, False) = txtPassword.Text Then
'Set DatoEncontrado = Range("C91:D100")
Range("N2").value = "Usuario: " & Range(DatoEncontrado).Offset(0, -1).value
MsgBox "Bienvenido al TCP", vbInformation, Blog
Unload Me
Application.Visible = True
Else
MsgBox "Contraseña incorrecta", vbExclamation, Blog
Usuarios.value = Empty
txtPassword.Text = ""
Me.Usuarios.SetFocus
End If
End If
End Sub
Lo que deseo hacer que que cuando encuentre el usuario y su contraseña, de la fila me copie el valor de de la columna B, es decir si ingrese el usuario admin, con su contraseña admin, me copie Leo López y lo pegue en N2, como muestra la imágen.
Necesito poder capturar el valor de la celda con un .Address y pasar el valor en esta linea:
Range("N2").value = "Usuario: " & Range(DatoEncontrado).Offset(0, -1).value