Rango de datos en Tabla dinamica
Publicado por Omar (2 intervenciones) el 01/04/2009 17:45:29
Todos los meses corro una macro que toma datos de una planilla excel y los convierte en una tabla dinamica.
El inconveniente que tengo es que la cantidad de registros se incrementa mes a mes y mi macro de tabla dinamica 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.
Como se puede hacer para actualizar ese rango en forma automatica cada vez que se procesa la macro ?
Este es el detalle de la macro donde muestra el rango a tomar para la tabla dinamica.
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
Desde muchisimas gracias por la contestacion
Omar.
El inconveniente que tengo es que la cantidad de registros se incrementa mes a mes y mi macro de tabla dinamica 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.
Como se puede hacer para actualizar ese rango en forma automatica cada vez que se procesa la macro ?
Este es el detalle de la macro donde muestra el rango a tomar para la tabla dinamica.
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
Desde muchisimas gracias por la contestacion
Omar.
Valora esta pregunta


0