Tabla Dinamica en Macros

18/02/2010 - 13:13 por Angel Sato | Informe spam
Buen dia a todos,

Grabe esto :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"dcaaa!R1C1:R3180C10").CreatePivotTable TableDestination:="",
TableName:= _
"Tabla dinámica1"

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tabla dinámica1").SmallGrid = False
ActiveSheet.PivotTables("Tabla dinámica1").AddFields
RowFields:="Doc.ref.", _
ColumnFields:="TpP"

bla bla bla,

El problema es que esta macro solo funciona para el libro en cuestion
("dcaaa"), quisiera predeterminar esta macro para usarla en cualquiera. Para
eso deberia cambiar el sourcedata y otros, pero no se los comandos.

Les agradeceria mucho su colaboracion, sdos.
Angel Sato

Preguntas similare

Leer las respuestas

#1 Guli
18/02/2010 - 13:59 | Informe spam
Te conviene poner lo siguiente antes de empezar con la tabla dinámica

Activesheet.name = "Tabla"

y donde pusiste dcaaa, pones Tabla y asi te va a funcionar para todos los
libros donde lo quieras aplicar!!

Saludos,

Guli

"Angel Sato" escribió:

Buen dia a todos,

Grabe esto :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"dcaaa!R1C1:R3180C10").CreatePivotTable TableDestination:="",
TableName:= _
"Tabla dinámica1"

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tabla dinámica1").SmallGrid = False
ActiveSheet.PivotTables("Tabla dinámica1").AddFields
RowFields:="Doc.ref.", _
ColumnFields:="TpP"

bla bla bla,

El problema es que esta macro solo funciona para el libro en cuestion
("dcaaa"), quisiera predeterminar esta macro para usarla en cualquiera. Para
eso deberia cambiar el sourcedata y otros, pero no se los comandos.

Les agradeceria mucho su colaboracion, sdos.
Angel Sato
Respuesta Responder a este mensaje
#2 FCDGT-WDWFR-MTDWR-DWGCG-TRCTV
22/02/2010 - 16:16 | Informe spam
"Angel Sato" wrote:

Buen dia a todos,

Grabe esto :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"dcaaa!R1C1:R318> ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData0C10").CreatePivotTable TableDestination:="",
TableName:= _
"Tabla dinámica1"

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tabla dinámica1").SmallGrid = False
ActiveSheet.PivotTables("Tabla dinámica1").AddFields
RowFields:="Doc.ref.", _
ColumnFields:="TpP"

bla bla bla,

El problema es que esta macro solo funciona para el libro en cuestion
("dcaaa"), quisiera predeterminar esta macro para usarla en cualquiera. Para
eso deberia cambiar el sourcedata y otros, pero no se los comandos.

Les agradeceria mucho su colaboracion, sdos.
Angel Sato
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida