Repetir para cada elemento de .PivotItems

21/04/2008 - 20:06 por selo | Informe spam
Estimados, grabo una macro para que efectue una tabla dinámica y me sale algo
como esto:
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Vendedor")
.PivotItems("Nombre Vendedor").Visible = False
...
...
End with
La consulta es, cómo hago para repetir el resultado TRUE or FALSE
(dependiendo)
para cada elemento .PivotItems ya que estos varían en cantidad.
Desde ya muchas gracias por su tiempo.
Un saludo.
 

Leer las respuestas

#1 Héctor Miguel
22/04/2008 - 05:27 | Informe spam
hola, 'anonimo/a' !

... grabo una macro para... una tabla dinamica y me sale algo como esto:
With ActiveSheet.PivotTables("Tabla dinamica1").PivotFields("Vendedor")
.PivotItems("Nombre Vendedor").Visible = False
...
...
End with
... como hago para repetir el resultado TRUE or FALSE (dependiendo)
para cada elemento .PivotItems ya que estos varian en cantidad...



op1: si necesitas mantener el codigo usando los nombres de los .PivotItems...
sigue tal cual lo ha generado la grabadora (solo complementa los puntos suspensivos)

op2: otra alternativa (de entre algunas posibilidades, y tambien dependiendo de lo que no se conozca)...
Dim Elemento As PivotItem
For Each Elemento In ActiveSheet.PivotTables("Tabla dinamica1").PivotFields("Vendedor").PivotItems
Elemento.Visible = True ' o False ?... (dependiendo de lo que deba depender) '
Next

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares