Tabla dinamica en VBA

Hola monosg,

Mira a ver si te vale alguno de estos procedimientos (cambia los nombres de
hojas y de la tabla dinamica a los que correspondan):

Sub Test1()
ActiveSheet.PivotTables(1).SourceData = "Sheet1!R1C1:R40C5"
End Sub

Sub Test2()
Sheets("Hoja2").PivotTables(1).SourceData = _
Sheets("Hoja1").Range("A1:E40").Address(, , xlR1C1, True)
End Sub

Saludos,
KL


"monosg" wrote in message
news:

Hola chicos, cómo están?
quería hacer una pregunta, que creía simple, pero estoy tirando el
tiempo...

cómo puedo hacer para cambiar el rango de datos de una tabla dinámica a
través de código VBA?

les agradezco mucho la info
saludos desde Argentina
monosg