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

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]

INCREIBLE!!!! Envidio sanamente tus conocimientos.-

Mil Gracias!!!!!