PivotItems

19/01/2006 - 12:41 por Daisuke Inoue | Informe spam
Hola

Me gustaria de automatizar la visualizacion de los itenes de um Pivot
El comando abajo me habilita por cada iten... Me gustataria hacer lo
mismo por el comando For Each

With ActiveSheet.PivotTables("tabCargas").PivotFields("TIPO_CARGA")
.PivotItems("PESAGEM AVULSA - ENTRADA (14)").Visible = True
.PivotItems("PESAGEM AVULSA - SAIDA (15)").Visible = True
.PivotItems("REMISION (4)").Visible = True
.PivotItems("REMISION (ORDEM TRANSF.) (2)").Visible = True
.PivotItems("REMISION DE TRANSFERENCIA (6)").Visible = True
.PivotItems("REMISION INTERNA (5)").Visible = True
.PivotItems("REMISION P/ CONTRATO (11)").Visible = True
.PivotItems("REMISION RETIRADA CLIENTE (3)").Visible = True
.PivotItems("ROMANEO (ORDEM TRANSF.) (1)").Visible = True
.PivotItems("ROMANEO INTERNO (8)").Visible = True
.PivotItems("ROMANEO RETIRADA COMPRADOR (16)").Visible = True
.PivotItems("ROMANEO TRANSF. (9)").Visible = True
End With

Me podrian ayudar...
Gracias



Daisuke
 

Leer las respuestas

#1 KL
20/01/2006 - 12:14 | Informe spam
Hola Daisuke,

Ya has posteado la misma consulta tres veces mientras mi respuesta ha estado bajo tu primer poting desde ayer.

Saludos,
KL


"Daisuke Inoue" wrote in message news:
Hola

Me gustaria de automatizar la visualizacion de los itenes de um Pivot
El comando abajo me habilita por cada iten... Me gustataria hacer lo
mismo por el comando For Each

With ActiveSheet.PivotTables("tabCargas").PivotFields("TIPO_CARGA")
.PivotItems("PESAGEM AVULSA - ENTRADA (14)").Visible = True
.PivotItems("PESAGEM AVULSA - SAIDA (15)").Visible = True
.PivotItems("REMISION (4)").Visible = True
.PivotItems("REMISION (ORDEM TRANSF.) (2)").Visible = True
.PivotItems("REMISION DE TRANSFERENCIA (6)").Visible = True
.PivotItems("REMISION INTERNA (5)").Visible = True
.PivotItems("REMISION P/ CONTRATO (11)").Visible = True
.PivotItems("REMISION RETIRADA CLIENTE (3)").Visible = True
.PivotItems("ROMANEO (ORDEM TRANSF.) (1)").Visible = True
.PivotItems("ROMANEO INTERNO (8)").Visible = True
.PivotItems("ROMANEO RETIRADA COMPRADOR (16)").Visible = True
.PivotItems("ROMANEO TRANSF. (9)").Visible = True
End With

Me podrian ayudar...
Gracias



Daisuke


Preguntas similares