Unir tablas

Ultima ayuda por favor. He crabado una macro y hace lo que quiero mas o
menos. Yo de codigo no se nada, pero intento aprender, por eso coloco la
macro grabada:

pplication.Goto Reference:="General"
Selection.ClearContents
Selection.Consolidate Sources:=Array( _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_1" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_2" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_22" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_3" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_49" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_5" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_54" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_57" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_6" _
, _
"'C:\Documents and Settings\Excel\Mis documentos\RIESGO.xls'!Z_7" _
), Function:=xlSum, TopRow:=False, LeftColumn:=True,
CreateLinks:=False

Funcionar funciona pero siempre que este en esa carpeta y lo que quiero es
que este donde este de cualquier ordenador me funcione. Tambien decir que
dentro de cada hoja consolidada lo que he echo ha sido agrupar los datos a
consolidar por nombre como Z_1, Z_2. etc... no se si eso esta bien o es
mejorable.

Saludos y gracias por la colaboracion.


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

hola, Antonio !

He conseguido unir las tablas mediante CONSOLIDACION y una nueva tabla
llamada GENERAL.
Mi cuestion ahora es como puedo hacer para que la consolidascion se
actualice
cada vez que pongas datos nuevos en las otras tablas...

o... grabas una macro que primero "limpe" tu hoja "general" y ejecute
nuevamente una consolidacion...

o... buscas alguas "ventajas" usando tablas dinamicas (p.e. +/- asi):
- definiendo rangos "dinamicos" en cada una de las tablas de origen:
http://www.contextures.com/xlPivot01.html
- usado rangos multiples para la consolidacion:
http://www.contextures.com/xlPivot08.html
- analizando las limitantes en los rangos multiples (por si necesitas
modificar tu arreglo en las tablas):
http://www.contextures.com/xlPivot0...imitations

saludos,
hector.

hola, Antonio !

He crabado una macro y hace lo que quiero mas o menos.
Yo de codigo no se nada, pero intento aprender, por eso coloco la macro grabada: (...)
Funcionar funciona pero siempre que este en esa carpeta
y lo que quiero es que este donde este de cualquier ordenador me funcione...

si te refieres a que la ruta sea la del archivo mismo sin importar donde este ubicado...
prueba con algo +/- como lo siguiente (adaptado del codigo que expusiste)...

Dim Base As String
Base = "'" & ThisWorkbook.Path & "iesgo.xls'!"
Application.Goto Reference:="General"
Selection.ClearContents
Selection.Consolidate Sources:=Array( _
Base & "Z_1" , _
Base & "Z_2", _
Base & "Z_22", _
Base & "Z_3", _
Base & "Z_49", _
Base & "Z_5", _
Base & "Z_54", _
Base & "Z_57", _
Base & "Z_6", _
Base & "Z_7"), _
Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

saludos,
hector.

Ok Hector tu ayuda ha sido genial ya funciona como yo queria.

Saludos y gracias por tu colaboración.

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

hola, Antonio !

He crabado una macro y hace lo que quiero mas o menos.
Yo de codigo no se nada, pero intento aprender, por eso coloco la macro
grabada: (...)
Funcionar funciona pero siempre que este en esa carpeta
y lo que quiero es que este donde este de cualquier ordenador me
funcione...

si te refieres a que la ruta sea la del archivo mismo sin importar donde
este ubicado...
prueba con algo +/- como lo siguiente (adaptado del codigo que
expusiste)...

Dim Base As String
Base = "'" & ThisWorkbook.Path & "iesgo.xls'!"
Application.Goto Reference:="General"
Selection.ClearContents
Selection.Consolidate Sources:=Array( _
Base & "Z_1" , _
Base & "Z_2", _
Base & "Z_22", _
Base & "Z_3", _
Base & "Z_49", _
Base & "Z_5", _
Base & "Z_54", _
Base & "Z_57", _
Base & "Z_6", _
Base & "Z_7"), _
Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

saludos,
hector.