Jump to content

Macro para actualizar varias tablas dinamicas


Recommended Posts

Buenas tardes para todos. Aprovechandomene de sus conocimientos necesitaria una macro para actualizar de manera automatica 5 tablas dinamicas que adjunto en el archivo. Admito que mis conocimientos en VBA son limitados y solo logre crear una macro para actualizar una TD y al repetir la orden me da error. Agradezco de antemano las ayudas y a Vtra disposicion cuando gusten.-

Libro2.xls

Link to comment
Share on other sites

Que tal Ronaldo,

Prueba con esto, colocandolo en el módulo de la hoja de Libro.

Saludos.

Option Explicit

Private Sub worksheet_change(ByVal Target As Range)
Dim pt As PivotTable
If Not Intersect(Target, Range("A:D")) Is Nothing Then
For Each pt In ActiveSheet.PivotTables
pt.PivotCache.Refresh
Next pt
End If
End Sub[/PHP]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy