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.

Bien, Hector, pero mi pregunta es que pasa si por ejemplo el criterio a
buscar es Jose, y de esta forma solo aparece aquellos registros que empiezan
por Jose, pero por ejemplo, si hay un nombre que sea Antonio Jose, ese no
aparece. Hay alguna forma para que el criteria sea que contiene la palabra,
y no que empieza por ella?



"Héctor Miguel" escribió en el mensaje de
noticias news:ezLZhf$

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.

Hola Jorge.

Mientras viene Hector, y si entiendo algo de lo que quieres, creo que
lo que te conviene es usar un filtro avanzado.
En la Hoja1 - A1, colocas el título de la columna a filtrar y abajo
los criterios. Un ejemplo sería así:
Nombre
Jose*
*Jose

Simplemente en filtros avanzados introduces estos criterios y ya.

Espero te sirva.

Saludos


Boris Marx

Hola Jorge.

Los filtros avanzados tienen el inconveniente que sólo copian en la
hoja activa. Para corregir esto, te paso esta macro.

Sub FiltroAv()
Range("B8").Select
Application.CutCopyMode = False
Range("A7:C12").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Sheets("Hoja1").Range( _
"A1:A3"), CopyToRange:=Sheets("Hoja1").Range("B5"),
Unique:=False
End Sub

Obviamente tienes que acomodar los rangos a tu situación.

Pruébala y comentas.

Saludos

Boris Marx

Hola nuevamente.

No había notado que es la misma macro que te pasó Hector, (que
pena!!). Igual, lo único que tienes que cambiar son los criterios.

Saludos

Boris Marx