tablas dinamicas

Bueno, el codigo es el siguiente:

ActiveSheet.PivotTables("Tabla dinámica3").PivotCache.Refresh

En todo caso en OPCIONES DE TABLA (de las herramientas de tabla
dinmaica) puedes activar el check de "actualizar al abrir"

Abraham

No te entiendo Abraham, lo que me dices. Puedes aclarar un poco más tu
respuesta.

"Abraham" escribió en el mensaje
news:
Bueno, el codigo es el siguiente:

ActiveSheet.PivotTables("Tabla dinámica3").PivotCache.Refresh

En todo caso en OPCIONES DE TABLA (de las herramientas de tabla
dinmaica) puedes activar el check de "actualizar al abrir"

Abraham

Por ejemplo, crea un macro asi:

Sub actualizartabla()

ActiveSheet.PivotTables("Tabla dinámica3").PivotCache.Refresh

End Sub

Asignala a un boton. "tabaldinamica3" es el nombre de la tabla
dinamica. Esa macro actualiza tu tabla, es decir, si vario una
informacion en los datos, al activar la macro, se actualiza la tabla
dinamica.

De todos modos si poner VER - BARRAS DE HERRAMIENTA - TABLAS DINAMICA
en la barra que sale hay un boton que realiza eso. Y tambien, en esa
misma barra si abres la lista desplegable "tabla dinamica" hay un
opcion "opciones de tabla", ahi activas el check "actualizar al abrir"
y cada vez que abras el archivo, la tabla dinamica se actualiza.

Abraham

hola, Augusto !

... vi una macro que al ejecutarla, actualizaba todas las tablas dinamicas, con aquellos datos actuales.
... si teniamos una serie de datos a una fecha determinada y por cualquier circunstacia alguno de estos datos ya no existia
... la macro, automaticamente actualizaba todas las tablas dinamicas, quitando de las mismas el dato que habiamos suprimido...

Excel -- Pivot Tables -- Clear Old Items
http://www.contextures.com/xlPivot04.html

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Ya la encontré, me refiero a la macro siguiente Borrar_PivotItems:

Sub Borrar_PivotItems()
Dim wksH As Worksheet
Dim ptP As PivotTable
Dim pfP As PivotField
Dim piP As PivotItem
Dim i As Integer


On Error Resume Next
For i = 1 To 2
For Each wksH In ActiveWorkbook.Worksheets
For Each ptP In wksH.PivotTables
For Each pfP In ptP.PivotFields
For Each piP In pfP.PivotItems
piP.Delete
Next
Next
ptP.RefreshTable
Next
Next
Next
On Error GoTo 0 'Por si hubiera más código despues


Set piP = Nothing
Set pfP = Nothing
Set ptP = Nothing
Set wksH = Nothing
End Sub


"Héctor Miguel" escribió en el mensaje
news:

hola, Augusto !

... vi una macro que al ejecutarla, actualizaba todas las tablas
dinamicas, con aquellos datos actuales.
... si teniamos una serie de datos a una fecha determinada y por
cualquier circunstacia alguno de estos datos ya no existia
... la macro, automaticamente actualizaba todas las tablas dinamicas,
quitando de las mismas el dato que habiamos suprimido...

Excel -- Pivot Tables -- Clear Old Items
http://www.contextures.com/xlPivot04.html

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.