Macro que crea una tabla dinámica en Excell
Hoy necesitaba crear un botón en una hoja de cálculo que generase dinámicamente una tabla dinámica. Lo más sencillo para esto, es crear una tabla dinámica manualmente y mientras tanto grabar la macro.
El código generado resulto ser del siguiente estilo:
Sub Macro1() Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R12C2", Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="Sheet4!R3C1", TableName:="PivotTable1", DefaultVersion _ :=xlPivotTableVersion12 Sheets("Sheet4").Select Cells(3, 1).Select End Sub |
Si bien, cuando quise probar esta macro desde mi botón, ésta no funcionaba y me tiraba el siguiente error:
"error en tiempo de ejecución '1004': error definido por la aplicación"o"error de tiempo de ejecución '5': argumento o llamada a procedimiento no válido" |
Googleando un poco llegué a una página de Microsoft donde explicaban el tema y el error se subsanaba vaciando el contenido de TableDestination=”” y eliminando las siguientes líneas:
Sheets.add Sheets ("sheetname").Select Cells (x,y).Select |
Buen dia, tengo el mismo problema al tratar de hace runa macro de tabla dinámica pero no me ha sido de utilidad la ayuda de microsoft, me aparece el siguiente error:
Range(“A6:E65”).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
“‘BASE DE DATOS’!R6C1:R65C5”).CreatePivotTable TableDestination = “”, _
TableName:=”Tabla dinámica2″, DefaultVersion:=xlPivotTableVersion10