Para actualizar una sola tabla dinámica en Excel utilizando VBA, puedes utilizar el siguiente código como referencia. Este código asume que ya tienes una tabla dinámica existente en tu hoja de cálculo y que sabes su nombre o el nombre de la hoja donde se encuentra.

Aquí te dejo un ejemplo básico de cómo se puede hacer:

Sub ActualizarTablaDinamica()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim tablaDinamica As PivotTable

    ' Establece el libro de trabajo actual
    Set wb = ThisWorkbook
    
    ' Establece la hoja de trabajo donde se encuentra la tabla dinámica
    ' Cambia "NombreHoja" por el nombre de la hoja que contiene la tabla dinámica
    Set ws = wb.Sheets("NombreHoja")
    
    ' Establece la tabla dinámica
    ' Cambia "NombreTablaDinamica" por el nombre de la tabla dinámica
    Set tablaDinamica = ws.PivotTables("NombreTablaDinamica")
    
    ' Actualiza la tabla dinámica
    tablaDinamica.RefreshTable
End Sub

Pasos para usar el código:

• Abrir el Editor de VBA:
• Abre Excel y presiona `Alt + F11` para abrir el Editor de VBA.
• Insertar un Módulo:
• En el Editor de VBA, ve a `Insertar > Módulo` para crear un nuevo módulo.
• Pegar el Código:
• Copia el código anterior y pégalo en el módulo recién creado.
• Modificar el Código:
• Cambia `»NombreHoja»` por el nombre exacto de la hoja que contiene tu tabla dinámica.
• Cambia `»NombreTablaDinamica»` por el nombre exacto de tu tabla dinámica.
• Ejecutar el Código:
• Con el cursor dentro del código, presiona `F5` para ejecutar el macro y actualizar la tabla dinámica.

Este código es una forma sencilla y efectiva de actualizar una tabla dinámica específica en tu hoja de cálculo sin necesidad de actualizar todas las tablas dinámicas. Recuerda siempre guardar una copia de seguridad de tus archivos antes de ejecutar macros para evitar perder datos.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto