otra de búsquedas

hola, jorge !

En la hoja1 libro1, en la celda a1 digito el nombre de cliente.
En la hoja2 tengo en la columna D los nombres.
el problema el nombre es cuando no se tiene el nombre completo, es decir
si digito jorge, necesito que me encuentre todo lo que tenga jorge
y me pegue desde la celda b5 las columnas D, F y H de la hoja2
en la columna B fila 5 hoja1 necesito copiar lo que encuentre en la columna F de la hoja 2
si encuentra 5 filas con el nombre jorge, me debe pegar 5 filas con los datos de las columnas indicadas
no se si soy confuso en la explicación de lo que quiero realizar ...

1) lo que no creo posible, es que en la hoja2, en la columna B fila 5 (celda b5) tengas al mismo tiempo...
-> datos de la hoja1 de ambas columnas D y F (lineas 5 y 6 -arriba- del "recorte" de tu consulta) -???-

2) como propuesta de (posible) solucion/alterntiva/...

-> usa los filtros avanzados por codigo para "refrescar" los datos que consultes en cada ocasion (p.e.)
suponiendo que en tu hoja2 los titulos estan en la fila 1, por lo que tus registros inician en la fila 2

-> en la hoja1:
a) pon en A1 el mismo titulo que tienes para "nombres" (Hoja2 D1 ?, o el campo que requieras para filtrar)
b) en la celda A2 vas a "solicitar" el nombre/id/codigo/... que requieras consultar
c) en el rango A4:C4 vas a poner los mismos "titulos" que tienes en las columnas D, F y H de la hoja2
d) copia/pega (o escribe) las siguientes lineas => en el modulo de codigo de la hoja1:
(haz un clic-secundario sobre la etiqueta con su nombre y selecciona "ver codigo")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Worksheets("hoja2").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), _
CopyToRange:=Range("a4:c4"), _
Unique:=False
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.