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

Hola KL, ¿podrías decirme que símbolo es el que va detrás de "Sheet1"? ¿Es
una admiración? Es que lo uso para importar cotizaciones de Visual Chart y
utilizo una fórmula que he copiado y pegado pero no sé cómo se pone.
Gracias.

Hola Remulo,

Es un signo de exclamacion "!" y deberas cambiar Sheet1 por el nombre real
de la hoja a la que se hace referencia.

Saludos,
KL


"Remulo" wrote in message
news:dcdmmk$3sg$

Hola KL, ¿podrías decirme que símbolo es el que va detrás de "Sheet1"? ¿Es
una admiración? Es que lo uso para importar cotizaciones de Visual Chart y
utilizo una fórmula que he copiado y pegado pero no sé cómo se pone.
Gracias.

eso estaba buscando!! te agradezco mucho KL
:-)

"KL" wrote in message
news:

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