Filtrar al escribir en un textbox
Tengo una base de datos y un formulario de registro de empleados donde cargo con el botón guardar mediante varios textbox el nombre, código, cargo, teléfono, empresa, email, fecha de contratación y una foto con un control de imagen.
Necesito realizar una búsqueda que al comenzar a escribir el nombre del empleado me muestre automáticamente en los demás textbox la información correspondiente así como la foto del mismo y si no encuentra el empleado me arroje un mensaje de que no existe el mismo para poder agregar uno nuevo
1 Respuesta
Para eso, tendrías que capturar el nombre completo, presionar un botón, la macro buscaría, si lo encuentra completa los otros textbox, si no existe, te enviaría el mensaje.
Si así lo quieres, entonces envíame tu archivo y te adapto la macro.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jesus Castro”
Te anexo los eventos para tu form
Private Sub NOMBRES_APELLIDOS_Change()
'Buscar por nombre
Dim h, i
Set h = Sheets("PERSONAL")
ListBox1.clear
CEDULA_CODIGO = ""
CARGO = ""
EMPRESA = ""
TELEFONO = ""
EMAIL = ""
FECHA_CONTRATACION = ""
'
For i = 9 To h.Range("A" & Rows.Count).End(xlUp).Row
If LCase(h.Cells(i, "A")) Like LCase(NOMBRES_APELLIDOS) & "*" Then
ListBox1.AddItem h.Cells(i, "A")
ListBox1.List(ListBox1.ListCount - 1, 1) = i
End If
Next
End SubPrivate Sub ListBox1_Click()
'Pone datos en los textbox
Dim fila, h
fila = ListBox1.List(ListBox1.ListIndex, 1)
Set h = Sheets("PERSONAL")
CEDULA_CODIGO = h.Cells(fila, "B")
CARGO = h.Cells(fila, "C")
EMPRESA = h.Cells(fila, "D")
TELEFONO = h.Cells(fila, "E")
EMAIL = h.Cells(fila, "F")
FECHA_CONTRATACION = h.Cells(fila, "G")
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias Dante!
Tu ayuda brindada ha sido de gran aporte para mi proyecto, es bueno contar con personas como usted que nos facilitan el conocimiento.
Dios te bendiga...
