¿ Actualizar tablas dinámicas solas?

"Ulises" escribió en el mensaje news:

Hola!!!
Estoy haciendo una plantillas de ventas y quiero que una tabla dinámica se
actualice sola respecto a los datos que están en otra hoja.
¿ Se puede hacer sin tener que actualizar la tabla dinámica manualmente?
Un saludo y gracias

Prueba con el siguiente código, pero ten en cuenta que tendrás que sustituir Hoja2 por el nombre de la hoja donde se encuentre la tabla dinámica:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(Application.ConvertFormula(Replace(Worksheets("Hoja2").PivotTables(1).PivotCache.SourceData, "F", "R"), xlR1C1, xlA1))) Is Nothing Then Worksheets("Hoja2").PivotTables(1).PivotCache.Refresh
End Sub

El código iría en el módulo de la hoja que tiene los datos de los que se nutre la tabla dinámica. Lo único que tienes que hacer para acceder a dicho módulo es click derecho sobre la etiqueta de la hoja > Ver código.
Un saludo.


Fernando Arroyo
MS MVP - Excel