Tabla dinámica en macro

Tengo inconvenientes en el funcionamiento de una macro que utilizo y que paso a comentarte
Todos los meses corro una macro que toma datos de una planilla excel y los convierte en una tabla dinámica.
La cantidad de registros se incrementa mes a mes y mi macro de tabla dinámica se mantiene siempre invariable en el rango que utilizo.
Para actualizar ese rango debo hacerlo de forma manual y saber que rango debe tomar de ese archivo.
¿Cómo se puede hacer para actualizar ese rango en forma automática cada vez que se procesa la macro?
Este es el detalle de la macro donde muestra el rango a tomar para la tabla dinámica.
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Hoja1!R1C1: (ESTE EL DATO QUE TENGO QUE CAMBIAR TODOS LOS MESES )---------> R2083C5").CreatePivotTable TableDestination:="", TableName:="Tabla dinámica1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("pep")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Ejercicio SAP")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica1").PivotFields(" Alta"), "Suma de Alta", _
xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False

1 respuesta

Respuesta
1
Lo primero, en la hoja donde vuelcas los datos, llama a una celda cualquiera "datos" (dónde pone A1, a la izq. de la barra de fómulas, escribes datos)
Después coge tu tabla dinámica, botón derecho y asistente, ve atrás hasta "origen de datos" (lo que cambias todos los meses con tu macro) y ahí escribes datos
después genera otra macro como sigue:
sub Worksheet_Activate()
   ActiveWorkbook.Names.Add Name:="datos", RefersTo:=Hoja1.Range("d5").CurrentRegion
   ActiveWorkbook.PivotCaches(1).Refresh
    End Sub
Asegúrate que en "d5" tienes datos de los que importas, o sustituye en la macro "d5" por cualquier celda de las que importas datos (según tu ejemplo"a1" es dónde comienzas a importar)
Al ejecutar esa macro hará que la referencia "datos" sea el rango completo de tus datos que importas, vuelcas o copias en la hoja. Y ese rengo es del que toma siempre los datos la tabla dinámica... no tendás que volver a ejecutar esta macro y tu td estará siempre actualizada al abrir esa hoja...
Hola estimado...
He resuelto el problema de la siguiente manera, la cual me han informado desde otra página.
Genere un nombre al cual le introduje la siguiente fórmula
=DESREF($A$1,0,0,CONTARA($A:$A),CONTARA($1:$1))
El nombre de este rango lo introduje en la tabla dinámica. Y a partir de allí funciona perfecto.
He probado la solución que me brindaste y también funciono satisfactoriamente.
Mil gracias por la pronta respuesta.
Un abrazo.
Omar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tabla dimamica ejecutada desde una macro

La pregunta eslasiguiete, como hacer que se ejecute una tabla dinamicadesdeunamacroque cree, ladesarrollocorrectamente pero me aparece un error y no mesale la tabla ya intente de todoperono he podido. Este es elerror que me genera ' ' Macro1 Macro '...
1 respuesta

Como hacer una macro que cree una tabla dinámica

Tengo un problema con una macro que grabe que me crea una tabla dinámica, me daba error 5, entre al foro donde indicaban que era fallas de microsoft, que debía modificar un poco el código, cosa que hice, pero ahora me da un error diferente, 1004...
1 respuesta

Macro grabada que crea tabla dinámica

He intentado grabar en excel una macro que crea una tabla dinámica de una base de datos en el mismo excel pero al ejecutarla manda el error 5 en tiempo de ejecución SIEMPRE, ya busque en la página de Microsoft donde dicen como retocar el código para...
1 respuesta

Filtro en Tabla dinámica con referencia a un Rango

Quiero saber si me puedes ayudar en lo siguiente, trato de hacer una macro que me filtre una tabla dinámica pero para que me haga dicho filtro quiero que tome los datos que tengo en un rango de datos y que solo me mustre esos y todos los demás no, no...
1 respuesta

Macro crea tabla dinámica

De la manera más amable solicito ayuda para crear una macro que me haga una tabla dinámica en uan hoja especifica. Lo que ocurre es que he intentado con unos códigos visto en internet y aquí en este mismo foro pero no me han servido me sale un error...
1 respuesta

Agrupar y totalizar datos en excel

Necesito agrupar y sumar los datos de una tabla y copiarlos a otra en lo posible en otra hoja dentro del mismo libro. Ejemplo tengo la tabla 1: Mes importe enero $100 enero $50 febrero $25 marzo $100 enero $100 febrero $25 abril $200 mayo $150 mayo...
1 respuesta

Tablas dinámicas con dos criterios

He leído muchas de tus respuestas (una parecida a la cuestión que te formulo) y poco a poco me voy iniciando en el macromundo. Me encuentro con que precisaría construir una macro que generase una tabla dinámica de acuerdo con los siguientes...
1 respuesta

Crear tabla dinámica con rango de datos variable

Debo crear una tabla dinámica que en la celda Z9, que tenga como Filtro del informe:"Type"; como Etiquetas de fila: "Pozo", "BHA No.", "Assembly name" y en sumatoria de valores "Suma de Lenght" y "Máx. De MD out". El rango de datos para crear la...
1 respuesta

¿Cómo unir dos macros de un único módulo?

Tengo dos macros en un único modulo que hacen dos tablas dinámicas en dos hojas distintas. Lo que busco es unir las dos macros para que las dos tablas se realicen seguidas sin tener que ejecutar la segunda macro.
1 respuesta

Error en Macro que crea una Tabla Dinámica

Alguien me podría ayudar con lo siguiente, hice una macro que crea una tabla dinámica el problema es que me esta marcando error 1004 en tiempo de ejecución, referencia no valida ya revise en la página de Microsoft y seguí las instrucciones que ahí...
1 respuesta