Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Tabla Dinamica en Macros

18/02/2010 - 13:13 por Angel Sato | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :