Saltar al contenido

Cambiar datos a una Tabla dinamica x

publicado

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

Featured Replies

publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.