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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Macros Tabla Dinamica

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

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida