otra de búsquedas

Gracias, me va perfecto con lo de *Jose, con eso simplemente me vale.
Gracias de nuevo



"Boris" escribió en el mensaje de noticias
news:
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

Gracias a los muchachos por sus aportes, sobre todo a Hector que siempre
está muy pendiente

pero tengo dos dudas,

la primera es la comentó yeida, como hacer en el código para que busque
jorge si el nombre empieza pro ejemplo con alvaro jorge y no con jorge..

la segunda, no hay posibilidad de que la celda del tídulo no sea a1 sino
p.e, a16, la celda de captura del dato a buscar nos ea a2 sino a17 y las
columnas a traer sean tituladas en a19 hasta d19, porque hice la prueba
cambiando el código en las celdas que menciono, pero no me trea nada

mil gracias por los aportes

Jorge Forero


"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 !

... tengo dos dudas,
la primera es la comento yeida, como hacer en el codigo para que busque jorge
si el nombre empieza pro ejemplo con alvaro jorge y no con jorge..

=> consulta la ayuda en linea en relacion con el uso de los criterios avanzados para los filtros (p.e.)
en la celda con el criterio, y segun lo que necesites "escribes" el criterio +/- como sigue:
- que inicie con jorge: jorge
- que contenga jorge: *jorge
- que termine en jorge: '=*jorge <= nota el apostrofo inicial (')

la segunda, no hay posibilidad de que la celda del tídulo no sea a1 sino p.e, a16
la celda de captura del dato a buscar nos ea a2 sino a17
y las columnas a traer sean tituladas en a19 hasta d19
porque hice la prueba cambiando el codigo en las celdas que menciono, pero no me trea nada...

segun esta peticion, el criterio a buscar debera estar en A17, y su titulo en A16
asi como los titulos de las columnas a extraer en el rango A19:D19
(lo que no se... es si de la hoja con los datos los titulos estan en la fila 1 y la tabla inicia desde la columna A) -???-

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$7" Then Exit Sub
Worksheets("hoja2").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a16:a17"), _
CopyToRange:=Range("a19:d19"), _
Unique:=False
End Sub

saludos,
hector.

ok, Hector funciona perfecto muchas gracias

Jorge Forero

"Héctor Miguel" escribió en el mensaje de
noticias news:uxcXPv%

hola, jorge !

... tengo dos dudas,
la primera es la comento yeida, como hacer en el codigo para que busque
jorge
si el nombre empieza pro ejemplo con alvaro jorge y no con jorge..

=> consulta la ayuda en linea en relacion con el uso de los criterios
avanzados para los filtros (p.e.)
en la celda con el criterio, y segun lo que necesites "escribes" el
criterio +/- como sigue:
- que inicie con jorge: jorge
- que contenga jorge: *jorge
- que termine en jorge: '=*jorge <= nota el apostrofo inicial (')

la segunda, no hay posibilidad de que la celda del tídulo no sea a1 sino
p.e, a16
la celda de captura del dato a buscar nos ea a2 sino a17
y las columnas a traer sean tituladas en a19 hasta d19
porque hice la prueba cambiando el codigo en las celdas que menciono,
pero no me trea nada...

segun esta peticion, el criterio a buscar debera estar en A17, y su titulo
en A16
asi como los titulos de las columnas a extraer en el rango A19:D19
(lo que no se... es si de la hoja con los datos los titulos estan en la
fila 1 y la tabla inicia desde la columna A) -???-

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$7" Then Exit Sub
Worksheets("hoja2").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a16:a17"), _
CopyToRange:=Range("a19:d19"), _
Unique:=False
End Sub

saludos,
hector.