filtro y macro

recapitulando

lo anterior ya estuvo gracias

pero


tengo este macro en 2007, consiste en escoger una opcion del filtro de una
tabla dinamica.

Sub budget()
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("L")
.PivotItems("A").Visible = True
.PivotItems("C").Visible = False
End With
End Sub

1. el problema que tengo es con "A" debido a que no siempre estaba escogido
"A" pues puede estar "B" "D" u otro.

que borre los seleccionados anteriormente,

2.En ves de "C" eliga el valor que tengo en a1

debido a que no siempre el

hola, (... ) ?

tengo este macro en 2007, consiste en escoger una opcion del filtro de una tabla dinamica.
Sub budget()
With ActiveSheet.PivotTables("Tabla dinamica3").PivotFields("L")
.PivotItems("A").Visible = True
.PivotItems("C").Visible = False
End With
End Sub
1. el problema que tengo es con "A" debido a que no siempre estaba escogido "A" pues puede estar "B" "D" u otro.
que borre los seleccionados anteriormente,
2. En ves de "C" eliga el valor que tengo en a1 debido a que no siempre el (...) ???

1) si no estas seguro de que algun "item" haya sido seleccionado o no -?-
prueba anticipando el -posible- error con una instruccion del tipo On Error Resume Next
o... revisa el apartado "P" de esta pagina: -> http://www.contextures.com/tiptech.html

2) (probablemente) si cambias la instruccion por:
.PivotItems(Range("a1")).Visible = False

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