Cambiar datos a una Tabla dinamica x

[Carlos Fabian]

buenos dias,

el problema es el siguiente, debo hacer la siguiente labor a muchas tablas dinamicas todos los dias

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields( _

"Suma de enero - 2013")

.NumberFormat = "#.##0_);[Rojo](#.##0)"

End With

el problema radica en ("Tabla dinámica1") ya que no se como hacer que esto aplique a la tabla dinamica activa no a la #1.

espero haberme hecho entender

gracias

[Abraham Valencia]

Supongo que pueden estar en distintas hojas, así que creo que esto te ayudara:

Dim tabla As PivotTable
Dim i As Integer

For i = 1 To Sheets.Count
        For Each tabla In Sheets(i).PivotTables
Tabla.PivotFields("Suma de enero - 2013").NumberFormat = "#.##0_);[Rojo](#.##0)"
        Next tabla
Next i
[/PHP]

Prueba y comentas

Abraham