Actualización Automática de Tablas Dinámicas

Introducción:
  Cuando trabajamos con una Tabla Dinámica, al agragar o modificar registros en la base de datos la tabla dinámica requiere ser actualizada, ya que por defecto no se actualiza automáticamente, como sí lo hacen las fórmulas.

Solución:
  Una forma para que la actualización se realice de manera automática es copiar el código que presento debajo dentro de la hoja en que se encuentra la tabla dinámica.

*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
Código:
Private Sub Worksheet_Activate()
Dim TDx As Integer
For TDx = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(TDx).RefreshTable
Next TDx
End Sub
*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*

Nota: Esto es válido para cuando la tabla dinámica no se encuentra dentro de la misma hoja que los datos de origen.

Te quedaron dudas de cómo hacerlo? ... podés ver un un video con un ejemplo práctico aquí:
VIDEO ejemplificador

adw 2013

 

 

 

"Sólo una cosa convierte en imposible un sueño: el miedo a fracasar." (Paulo Coelho)