Saltar al contenido principal

¿Cómo actualizar automáticamente una tabla dinámica en Excel?

Normalmente, cuando actualizamos los datos de origen de una tabla dinámica, la tabla dinámica no se actualizará hasta que hagamos clic Analizar > Refrescar a mano. Esto será bastante aburrido si la tabla dinámica permanece en otra hoja de trabajo y es posible que se olvide de actualizarla. Aquí, este artículo presentará un VBA para actualizar automáticamente una tabla dinámica en Excel.

Actualizar automáticamente una tabla dinámica por VBA


Actualizar automáticamente una tabla dinámica por VBA

Siga los pasos a continuación para aplicar el VBA para actualizar automáticamente la tabla dinámica especificada en Excel.

1. En la barra de la pestaña Hoja, haga clic con el botón derecho en la pestaña de la hoja que contiene los datos de origen y seleccione Ver código en el menú contextual. Ver captura de pantalla:

2. En la ventana de apertura de Microsoft Visual Basic para Aplicaciones, pegue el código.

VBA: actualiza automáticamente la tabla dinámica especificada

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

Notas:
(1) En el código de las hojas de trabajo ("nombre de la hoja").Tablas dinamicas("Nombre de la tabla dinámica") .PivotCache.Refresh, reemplace nombre de la hoja con el nombre de la hoja que contiene la tabla dinámica especificada y reemplace el Nombre de la tabla dinámica con el nombre de la tabla dinámica especificada.
(2) Seleccione cualquier celda en la tabla dinámica especificada, obtendrá su nombre en el Analizar pestaña (o Opciones lengüeta). Ver captura de pantalla:

3. Guarde el código.

A partir de ahora, cuando cambie los datos en los datos de origen, la tabla dinámica especificada se actualizará automáticamente.

Combine fácilmente varias hojas de trabajo / libros de trabajo / archivos CSV en una hoja de trabajo / libro de trabajo

Puede resultar tedioso combinar docenas de hojas de diferentes libros de trabajo en una sola hoja. Pero con Kutools para Excel Combinar (hojas de trabajo y libros de trabajo) utilidad, puede hacerlo con solo varios clics.


anuncio combinar hojas libros 1

Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations