3 Macros Imprescindibles para Tablas Dinámicas en Excel

¿Tienes archivos llenos de Tablas Dinámicas y tus datos cambian constantemente? Estoy seguro de que estarás de acuerdo conmigo: actualizar manualmente cada tabla dinámica puede ser tedioso y frustrante.

Por eso, en este post te enseñaré 3 Macros imprescindibles que no solo automatizan el proceso de actualización.

3 Macros Imprescindibles para Tablas Dinámicas en Excel

Suscríbete para más tutoriales

Descarga el archivo para practicar

Escribe tu correo electrónico para recibir gratis el archivo para practicar.

*Al enviar mi correo electrónico, acepto recibir noticias y ofertas. Puedo darme de baja en cualquier momento.

🛠️ Crear Tablas Dinámicas desde Cero

Primero, crearemos algunas Tablas Dinámicas a partir de una tabla de datos llamada “Productos”. Los pasos básicos son los siguientes:

1. Selecciona una celda dentro de la tabla.
2. Ve a la ficha Insertar > Tabla Dinámica.
3. Elige la opción Hoja de cálculo existente y selecciona dónde colocarla.

Repite este proceso para crear múltiples Tablas Dinámicas en diferentes hojas y personaliza cada una para mostrar información clave como productos, categorías, fechas de ingreso, etc.

Una vez que tengas tus Tablas Dinámicas listas, ¡es hora de automatizarlas con Macros!

💻 Macro 1: Actualizar Tablas Dinámicas al Activar una Hoja

¿Qué hace esta Macro?
Cada vez que actives una hoja que contenga Tablas Dinámicas, estas se actualizarán automáticamente.

Código VBA:

Private Sub Worksheet_Activate()
    Dim PT As PivotTable
    For Each PT In Me.PivotTables
        PT.RefreshTable
    Next PT
End Sub

Alternativa: Usar una Macro General

En lugar de repetir este código en cada hoja, puedes crear una Macro general que actualice todas las Tablas Dinámicas de la hoja activa y simplemente llamarla desde cada hoja.

Sub ActualizarTDs()
    Dim PT As PivotTable
    For Each PT In ActiveSheet.PivotTables
        PT.RefreshTable
    Next PT
End Sub

💡 Consejo: Usa esta Macro en hojas específicas que contengan Tablas Dinámicas para optimizar su rendimiento.

💻 Macro 2: Activar “Actualizar al Abrir el Archivo”

Si necesitas que tus Tablas Dinámicas se actualicen automáticamente al abrir el archivo, esta Macro es para ti. Es ideal cuando tienes múltiples hojas con Tablas Dinámicas y no quieres habilitar la opción manualmente en cada una.

Código VBA:

Sub ActualizarAlAbrir()

Dim ws As Worksheet
Dim pt As PivotTable

For Each ws In ThisWorkbook.Sheets

    For Each pt In ws.PivotTables
    
        pt.PivotCache.RefreshOnFileOpen = True
    
    Next pt

Next ws

End Sub

Resultado: Todas las Tablas Dinámicas de tu archivo tendrán la opción “Actualizar al abrir el archivo” habilitada.

💻 Macro 3: Eliminar Todas las Tablas Dinámicas del Libro

¿Por qué usar esta Macro?
Si necesitas limpiar un archivo y eliminar todas las Tablas Dinámicas, esta Macro será tu mejor aliada. Sin embargo, úsala con precaución y asegúrate de tener un respaldo del archivo.

💡 Pro tip: Guarda tu archivo en OneDrive para aprovechar el historial de versiones. Así podrás restaurar cualquier cambio accidental.

Código VBA:

Sub EliminarTDs()

Dim ws As Worksheet
Dim pt As PivotTable
Dim ptCache As PivotCache

On Error Resume Next

For Each ws In ThisWorkbook.Sheets

    For Each pt In ws.PivotTables
    
        Set ptCache = pt.PivotCache
        pt.TableRange2.Clear
        ptCache.MissingItemsLimit = xlMissingItemsNone

    Next pt

Next ws

End Sub

Certifícate en Excel

Tienes experiencia en Excel y quieres mejorar tus oportunidades laborales? Obtén la Certificación Excel Expert avalada por Microsoft.