Extaer datos para pegar en ficha de clientes

En una base de datos en Excel (2003) sobre la facturación de mi empresa que periódicamente cambia y actualizo
utlilizo BUSCARV para extraer diversos datos basandome en la referencia de cliente.
Ocurre que si quiero saber todos los artículos (columna G - (nº 7) "Articulo") que ha consumido un cliente
al poner la referencia en la fórmula BUSCARV, por ejemplo:
BUSCARV(E3,basearticulojunio09;5 falso); "solo" me devuelve el articulo de la celda G3 y sin embargo
puede ocurrir que hayan mas articulos consumidos en G4, G5, G6, etc.
(hasta un INDETERMINADO número de filas dependiente del mes de facturación.)
Sé que existen las tablas dinámicas que yo no domino muy bien, pero en este caso no me serviría porque
se trata de "llevar" los datos a una plantilla de análisis que tengo para conocer muchos datos respecto a un cliente...
a partir de la celda B18, quiero poner los articulos consumidos en un determinado periodo).
He pensado en grabar una macro que haga un filtro en la columna E ("Cliente") del dato elegido de un cuadro de lista
donde figuren dichas referencias de clientes y así copiar las columnas con los datos que me interesan
(variables en la cantidad de filas y no sé como se hace) para posteriormente pegarlas en el reverso de la ficha ...

hola, José Rafael !

usa los filtros avanzados por codigo para "refrescar" los datos que
consultes en cada ocasion
(p.e.) suponiendo que:

-> en tu hoja1:
los titulos estan en la fila 1, por lo que tus registros inician en la
fila 2

-> en la hoja2:
a) pon en A1 el mismo titulo que tienes para "nombres" (Hoja1 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("hoja1").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), _
CopyToRange:=Range("a4:c4"), _
Unique:=False
End Sub

tambien existen conversaciones que tratan el uso de filtros avanzados por
codigo: http://tinyurl.com/ly8xh7

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

__ OP __

En una base de datos en Excel (2003) sobre la facturación de mi empresa
que periódicamente cambia y actualizo
utlilizo BUSCARV para extraer diversos datos basandome en la referencia
de cliente.
Ocurre que si quiero saber todos los artículos (columna G - (nº 7)
"Articulo") que ha consumido un cliente
al poner la referencia en la fórmula BUSCARV, por ejemplo:
BUSCARV(E3,basearticulojunio09;5 falso); "solo" me devuelve el articulo
de la celda G3 y sin embargo
puede ocurrir que hayan mas articulos consumidos en G4, G5, G6, etc.
(hasta un INDETERMINADO número de filas dependiente del mes de
facturación.)
Sé que existen las tablas dinámicas que yo no domino muy bien, pero en
este caso no me serviría porque
se trata de "llevar" los datos a una plantilla de análisis que tengo para
conocer muchos datos respecto a un cliente...
a partir de la celda B18, quiero poner los articulos consumidos en un
determinado periodo).
He pensado en grabar una macro que haga un filtro en la columna E
("Cliente") del dato elegido de un cuadro de lista
donde figuren dichas referencias de clientes y así copiar las columnas
con los datos que me interesan
(variables en la cantidad de filas y no sé como se hace) para
posteriormente pegarlas en el reverso de la ficha ...

... me gustaria que cambiaras estas "cosas":

Que el valor de $A$2 lo tomara o fuera el de la celda F6 de la hoja "Ficha".

Que la hoja1 se llame "basefacturacion" y que sus columnas L-K-P-Q-S son las que contienen los datos para traer

y copiar a la Hoja llamada "Reverso ficha" primera celda a recibir el dato ²0 y sucesivas C20-E20-F20-G20

hola, José Rafael !

... me gustaria que cambiaras estas "cosas":

__ 1 __

Que el valor de $A$2 lo tomara o fuera el de la celda F6 de la hoja
"Ficha".

__ 2 __

Que la hoja1 se llame "basefacturacion" y que sus columnas L-K-P-Q-S son
las que contienen los datos para traer

__ 3 __

y copiar a la Hoja llamada "Reverso ficha" primera celda a recibir el
dato ²0 y sucesivas C20-E20-F20-G20

1) en la hoja "ficha" deberas poner en la celca [F5] el titulo de columna
de la BD cuyo contenido solicitaras en la celda [F6]
2) los titulos de la hoja "basefacturacion" de las columnas L, K, P, Q y S
son los que deberas copiar (exactamente) a...
3) las celdas del rango [B19:G19] de la hoja "reverso ficha" deberan
contener el mismo titulo que las celdas del punto anterior

el codigo deberas ponerlo en el modulo de la hoja "ficha" (donde cambias
el pedido en la celda [F6])

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$6" Then Exit Sub
Worksheets("basefacturacion").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("ficha")Range("f5:f6"), _
CopyToRange:=Worksheets("reverso ficha")Range("b19:g19"), _
Unique:=False
End Sub

saludos,
hector.