Modificar tabla dinamica desde macro

hola, Augusto !

Mostrar la cita

Tengo unas 200 tablas dinamicas y necesito hacer dos cosas con ellas:
1) cambiar el filtro de todas de manera automatica
2) que el nuevo filtro lo determine una lista desplegable.
Es decir, si en la lista desplegable elijo la opcion 2
se ejecute una macro que me modifique todas las tablas que tengo poniéndoles como nuevo filtro el 2
(que, obviamente, es un valor que existe en la lista de campos)

supongamos que "la lista" (o su valor) esta indicado en la celda F1 de "(alg)una" de las hojas (pongamos que la hoja1)
y supongamos tambien que cada TD esta en su hoja "correspondiente" (???)
prueba usando el siguiente codigo en el modulo de "esa" hoja (la hoja1 ?)

Private Sub Worksheet_Calculate()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja2", "hoja3", "hoja4", "hoja5"))
Hoja.PivotTables(1).PageFields(1).CurrentPage = CStr(Range("f1"))
Next
End Sub

el evento podria optimizarse al conocer (exactamente) si los cambios en "la lista" disparan el evento '_change' (???)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.