Contenido
Para crear un botón en Excel que actualice una tabla dinámica usando VBA, sigue estos pasos:
Sub ActualizarTablaDinamica()
Dim ws As Worksheet
Dim pt As PivotTable
' Cambia "Hoja1" al nombre de la hoja que contiene la tabla dinámica
Set ws = ThisWorkbook.Sheets("Hoja1")
' Cambia "TablaDinamica1" al nombre de tu tabla dinámica
Set pt = ws.PivotTables("TablaDinamica1")
' Actualiza la tabla dinámica
pt.RefreshTable
MsgBox "Tabla dinámica actualizada."
End Sub
- Accede al editor de VBA:
- Abre tu archivo de Excel.
- Presiona `Alt + F11` para abrir el Editor de Visual Basic para Aplicaciones (VBA).
- Inserta un nuevo módulo:
- En el panel de Project Explorer (normalmente en el lado izquierdo), busca tu archivo de Excel. Si Project Explorer no está visible, presiona `Ctrl + R`.
- Haz clic derecho sobre el objeto que representa tu documento y selecciona `Insertar` > `Módulo`.
- Escribe el código VBA:
- En el módulo recién creado, introduce el siguiente código VBA para actualizar la tabla dinámica:
- Asegúrate de cambiar `»Hoja1″` por el nombre real de la hoja de cálculo que contiene la tabla dinámica y `»TablaDinamica1″` por el nombre de la tabla dinámica. Puedes encontrar el nombre de la tabla dinámica bajo las herramientas de tabla dinámica en Excel.
- Crea el botón en la hoja de cálculo:
- Vuelve a Excel presionando `Alt + Q` o simplemente cerrando el Editor de VBA.
- Ve a la pestaña `Desarrollador`. Si no está habilitada, puedes habilitarla desde las opciones de Excel.
- Haz clic en `Insertar` y selecciona el botón de formulario bajo los controles de formulario.
- Dibuja el botón en tu hoja de cálculo.
- Asigna la macro al botón:
- Al soltar el botón, aparecerá un cuadro de diálogo para asignar una macro.
- Selecciona la macro `ActualizarTablaDinamica` y haz clic en `Aceptar`.
- Prueba el botón:
- Haz clic en el botón que acabas de crear, y debería actualizarse la tabla dinámica especificada.
Con estos pasos, habrás agregado un botón que actualizará la tabla dinámica al instante cuando se presione.