Actualizar datos y rango en tabla dinámica
Expertos, otra consulta más para el foro, tengo varias tablas dinámicas en un archivo en diferentes hojas, las cuales actualizo constantemente, el problema es que lo hago manuel, es decir actualizo con click derecho los datos y el rango (datos de origen) desde el menu tabla por tabla. Existe una manera de actualizar el rango a la par de los datos automáticamente al momento de cambiar entre hojas o con un solo movimiento o una solución que me roporcionen para no trabajar tabla por tabla.
Heeeeeelp!
Heeeeeelp!
1 Respuesta
Respuesta de jrgces
1
El siguiente código, que va en el módulo de la hoja donde se encuentren los datos de que se nutra la tabla dinámica, la actualiza automáticamente al modificarse los datos de origen:
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Hoja2").PivotTables(1).PivotCache 'Hoja donde se encuentre la tabla dinámica
If Not Intersect(Target, Range(Application.ConvertFormula(Replace(.SourceData, "F", "R"), xlR1C1, xlA1))) Is Nothing Then .Refresh
End With
End Sub
Para acceder al módulo de la hoja lo más rápido es pulsación derecha sobre su etiqueta -> Ver Código.
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Hoja2").PivotTables(1).PivotCache 'Hoja donde se encuentre la tabla dinámica
If Not Intersect(Target, Range(Application.ConvertFormula(Replace(.SourceData, "F", "R"), xlR1C1, xlA1))) Is Nothing Then .Refresh
End With
End Sub
Para acceder al módulo de la hoja lo más rápido es pulsación derecha sobre su etiqueta -> Ver Código.
