crear un libro auxiliar o de resultados por coincidencias

hola, Ariel !

op1: revisa la informacion de la siguiente pagina:
Excel - Pivot Tables - Multiple Consolidation Ranges
http://www.contextures.com/xlPivot08.html

op2: ve cuales de los siguientes ejemplos son adaptables a la situacion que comentas:
Create a summary worksheet from different workbooks (with formulas)
http://www.rondebruin.nl/summary2.htm
Create a summary worksheet from all worksheets (with formulas)
http://www.rondebruin.nl/summary.htm
Copy records with the same value in a column to a new sheet or workbook
http://www.rondebruin.nl/copy5.htm

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __

En una carpeta tengo un libro por dia. En cada libro tengo una cantidad de hojas fijas (una por local, en total 10)
En cada hoja tengo 3 cuerpos de datos en rangos determinados
supongamos en a1="VISA", en b1="1cuota", c1=$100; en a2="MASTER", en b2="6cuotas", en c2=$100
y asi sucesivamente con todas las tarjetas y todos los planes de pago pero no estan ordenados.
En un libro aparte "auxiliar, de resultados o resumen" necesito generar una macro que me permita
"traer" esos datos en forma de "reporte"... necesito el nombre del local que siempre está en la hoja1 de cada libro en a1 por ej
y debajo de el todos los datos que figuran en ese rango.-
Mucho mas interesante desde ya, sería que sume las coincidencias por local.
Es decir que, de todos los datos que me "trae", busque cuales coinciden entre sí y los sume.
De esta manera tendre un reporte por local, por tarjeta y por cantidad de cuotas resumen de todo el mes.-

Muchas gracias Héctor pero sinceramente comprendo poco o nada de inglés y se
me complica un poco desarrollar los ejemplos citados...
Aunque está muy bueno el ejemplo de las tablas dinámicas no consigo llegar a
lo que necesito.
Tal vez si lo expongo de forma mas sencilla...

Supongamos que tengo un grupo de libros en una carpeta, cada libro tiene
varias hojas, y en cada hoja hay datos en las columnas a, b ,c.
Cómo hago una macro (en un libro nuevo) que me "traiga" los datos de las
columnas citadas de todos los libros sólo que ordenados por hojas.
Es decir en la hoja1 del libro resumen necesito todos los datos de las
hojas1 de todos los libros en la carpeta, en la hoja2 del libro resumen,
necesito todos los datos de todas las hojas2 de todos los libros...

Muy muchas gracias y sepan dispensar mi carencia idiomática...

Ariel

"Héctor Miguel" escribió en el mensaje
news:OcmOFO#

hola, Ariel !

op1: revisa la informacion de la siguiente pagina:
Excel - Pivot Tables - Multiple Consolidation Ranges
http://www.contextures.com/xlPivot08.html

op2: ve cuales de los siguientes ejemplos son adaptables a la situacion

que comentas:

Create a summary worksheet from different workbooks (with formulas)
http://www.rondebruin.nl/summary2.htm
Create a summary worksheet from all worksheets (with formulas)
http://www.rondebruin.nl/summary.htm
Copy records with the same value in a column to a new sheet or

workbook

http://www.rondebruin.nl/copy5.htm

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
> En una carpeta tengo un libro por dia. En cada libro tengo una cantidad

de hojas fijas (una por local, en total 10)

> En cada hoja tengo 3 cuerpos de datos en rangos determinados
> supongamos en a1="VISA", en b1="1cuota", c1=$100; en a2="MASTER", en

b2="6cuotas", en c2=$100

> y asi sucesivamente con todas las tarjetas y todos los planes de pago

pero no estan ordenados.

> En un libro aparte "auxiliar, de resultados o resumen" necesito generar

una macro que me permita

> "traer" esos datos en forma de "reporte"... necesito el nombre del local

que siempre está en la hoja1 de cada libro en a1 por ej

> y debajo de el todos los datos que figuran en ese rango.-
> Mucho mas interesante desde ya, sería que sume las coincidencias por

local.

> Es decir que, de todos los datos que me "trae", busque cuales coinciden

entre sí y los sume.

> De esta manera tendre un reporte por local, por tarjeta y por cantidad

de cuotas resumen de todo el mes.-

hola, Ariel !

... comprendo poco o nada de ingles y se me complica un poco desarrollar los ejemplos citados...
... si lo expongo de forma mas sencilla...
Supongamos que tengo un grupo de libros en una carpeta, cada libro tiene varias hojas
y en cada hoja hay datos en las columnas a, b ,c.
Como hago una macro (en un libro nuevo) que me "traiga" los datos... de todos los libros solo que ordenados por hojas.
Es decir en la hoja1 del libro resumen necesito todos los datos de las hojas1 de todos los libros en la carpeta
en la hoja2 del libro resumen, necesito todos los datos de todas las hojas2 de todos los libros...

comentas que existen 10 hojas en cada uno de los libros [entonces]...
prepara un libro 'nuevo' [en blanco] con las 10 hojas necesarias, le agregas un modulo estandar nuevo y...
copia/pega/ejecuta la siguiente macro:

Sub Combina_archivos_en()
Dim Ruta As String, Archivo As String, n As Byte
Application.ScreenUpdating = False
Ruta = "c:uta y sub\carpetas a tus archivos\" ' <= PON AQUI LA RUTA REAL
Archivo = Dir(Ruta & "*.xls")
Do While Archivo <> ""
Workbooks.Open Ruta & Archivo
For n = 1 To 10
With ThisWorkbook.Worksheets(n)
.Range("a" & Rows.Count).End(xlUp).Offset(2) = _
ActiveWorkbook.Name & " | " & ActiveWorkbook.Worksheets(n).Name
ActiveWorkbook.Worksheets(n).UsedRange.Copy _
Destination:=.Range("a" & Rows.Count).End(xlUp).Offset(1)
End With
Next
ActiveWorkbook.Close False
Archivo = Dir()
Loop
End Sub

NOTA: se asume que las hojas que se va a consolidar... la ultima fila en la columna 'A' de cada hoja SI contiene datos -?-
de lo contrario... la 'siguiente fila libre' en el libro nuevo... va a presentar 'inconsistencias' en el resultado final :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Muchas gracias... No tenía Internet por ello se demoraron las gracias
"Héctor Miguel" escribió en el mensaje
news:#

hola, Ariel !

> ... comprendo poco o nada de ingles y se me complica un poco desarrollar

los ejemplos citados...

> ... si lo expongo de forma mas sencilla...
> Supongamos que tengo un grupo de libros en una carpeta, cada libro tiene

varias hojas

> y en cada hoja hay datos en las columnas a, b ,c.
> Como hago una macro (en un libro nuevo) que me "traiga" los datos... de

todos los libros solo que ordenados por hojas.

> Es decir en la hoja1 del libro resumen necesito todos los datos de las

hojas1 de todos los libros en la carpeta

> en la hoja2 del libro resumen, necesito todos los datos de todas las

hojas2 de todos los libros...

comentas que existen 10 hojas en cada uno de los libros [entonces]...
prepara un libro 'nuevo' [en blanco] con las 10 hojas necesarias, le

agregas un modulo estandar nuevo y...

copia/pega/ejecuta la siguiente macro:

Sub Combina_archivos_en()
Dim Ruta As String, Archivo As String, n As Byte
Application.ScreenUpdating = False
Ruta = "c:uta y sub\carpetas a tus archivos\" ' <= PON AQUI LA RUTA

REAL

Archivo = Dir(Ruta & "*.xls")
Do While Archivo <> ""
Workbooks.Open Ruta & Archivo
For n = 1 To 10
With ThisWorkbook.Worksheets(n)
.Range("a" & Rows.Count).End(xlUp).Offset(2) = _
ActiveWorkbook.Name & " | " & ActiveWorkbook.Worksheets(n).Name
ActiveWorkbook.Worksheets(n).UsedRange.Copy _
Destination:=.Range("a" & Rows.Count).End(xlUp).Offset(1)
End With
Next
ActiveWorkbook.Close False
Archivo = Dir()
Loop
End Sub

NOTA: se asume que las hojas que se va a consolidar... la ultima fila en

la columna 'A' de cada hoja SI contiene datos -?-

de lo contrario... la 'siguiente fila libre' en el libro

nuevo... va a presentar 'inconsistencias' en el resultado final :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.