Sin embargo, con esta macro podremos hacer que se actualicen automáticamente al entrar a la hoja.
Esta macro se debe colocar desde el editor de macros, dentro de la hoja en cuestión.
Permite actualizar todas las tablas dinámicas presentes en la hoja.
- Código: Seleccionar todo
Private Sub Worksheet_Activate()
Dim TDx As Integer
For TDx = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(TDx).RefreshTable
Next TDx
End Sub



