tabla dinamica activa

hola, titon !

... hacer que cuando la fuente de datos de una tabla dinamica cambie, esta tb. lo haga en forma automata

con los datos que 'aportas'... [probablemente] surgiran 'detalles que ajustar' :))
si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
== suponiendo que el origen de la TD es la misma hoja de calculo: =op1: en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Me.PivotTables(1).PivotCache.Refresh
Application.EnableEvents = True
End Sub

op2: en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Change(ByVal Target As Range)
Dim FLR As String, OrigenTabla As String
FLR = Application.International(xlUpperCaseRowLetter)
With Me.PivotTables(1)
OrigenTabla = Application.ConvertFormula(Application.Substitute( _
Mid(.SourceData, InStr(.SourceData, "!") + 1), FLR, "R"), xlR1C1, xlA1)
If Not Intersect(Target, Range(OrigenTabla)) Is Nothing Then .PivotCache.Refresh
End With
End Sub

op3: ??? [un cierto numero de posibilidades segun 'cambien' mis supuestos] :))

notas: la op1 'falla' si el cambio ocurre en celdas que no generan un re/calculo de la hoja
[p.e. modificar celdas que sean texto -filas/columnas/paginas- en la TD]
[a menos que la hoja incluya alguna formula que 'sumarize' adicionalmente con base en dichas celdas] ;)