Macros Tabla Dinamica

"Karla Q. Q." <Karla Q. escribió en el mensaje news:

Quisiera saber si es posible crear en VB de Excel... una orden en un control
para que me actualize todas las tablas dinamicas que tenga el libro, sin
tener que buscar el boton y arrastrar desde Herramientas, Personalizar,
Comandos, Datos, Actualizar Todo..
Se despide atentamente Karla Q. Q.

Sub ActualizarTablasDinámicas()
Dim wks As Worksheet, pt As PivotTable
For Each wks In Worksheets
For Each pt In wks.PivotTables
pt.RefreshTable
Next pt
Next wks

Set pt = Nothing
Set wks = Nothing
End Sub

Si necesitas controlar que cada tabla se haya actualizado correctamente, puedes sustituir

pt.RefreshTable

con

If Not pt.RefreshTable Then MsgBox "La tabla " & pt.Name & " situada en la hoja " & wks.Name & " no se actualizó correctamente."


Un saludo.


Fernando Arroyo
MS MVP - Excel