Buscar un registro Excel VBA
Para dante amor
Hola amigo Dante muy agradecido por su apoyo en el desarrollo de la aplicación.
Ahora deseo realizar la búsqueda del padre atraves del nombre o DNI.
Y cuando el nombre del padre buscado aparezca en el listbox, aré clic en el registro y me mostrará la cantidad de hijos asociados al padre en el otro listbox
Ya le envié el archivo.
Muy agradecido saludos!
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para buscar los padres de acuerdo a lo que vayas escribiendo en el textbox.
Private Sub Txtbuscar_Change()
'Por.Dante Amor
Set h5 = Sheets("Padres")
ListaEmpresas.Clear
For i = 4 To h5.Range("A" & Rows.Count).End(xlUp).Row
cad = h5.Cells(i, "A") & UCase(h5.Cells(i, "B"))
If cad Like "*" & UCase(Txtbuscar) & "*" Then
With ListaEmpresas
.AddItem h5.Cells(i, "A")
.List(.ListCount - 1, 1) = h5.Cells(i, "B")
.List(.ListCount - 1, 2) = h5.Cells(i, "C")
.List(.ListCount - 1, 3) = h5.Cells(i, "D")
End With
End If
Next
End SubSal u dos
