Buscar registro de hijos del padre que selecciones en la lista de padres excel vba
Para Dante amor.
Buenos días amigo Dante.
Deseo buscar los hijos del padre que selecciones en la lista de padres.
Ya le envié el archivo
Muy agradecido.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para mostrar a los hijos
Private Sub ListaEmpresas_Click()
'Por.Dante Amor
Set h6 = Sheets("Hijos")
dni = ListaEmpresas.List(ListaEmpresas.ListIndex)
Listahijos.Clear
Set r = h6.Columns("A")
Set b = r.Find(dni, lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
With Listahijos
. AddItem h6. Cells(b.Row, "A")
.List(.ListCount - 1, 1) = h6.Cells(b.Row, "B")
.List(.ListCount - 1, 2) = h6.Cells(b.Row, "C")
.List(.ListCount - 1, 3) = h6.Cells(b.Row, "D")
End With
'detalle
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End Subsal u dos
