Ocultar item de un campo de Tabla Dinámica

[Caliche]

Como evitar el error que se me está presentando al tratar de ocultar un ítem que no existe en una tabla dinámica, como en las siguientes instrucciones:


With ActiveSheet.PivotTables("Tabla dinámica5").PivotFields("CLASE")
.PivotItems("425").Visible = False
.PivotItems("435").Visible = False
.PivotItems("440").Visible = False
.PivotItems("445").Visible = False
.PivotItems("466").Visible = False
End With

Cuales serían las instrucciones para chequear la existencia del item y si no existe no tratar de ocultarlo?.

Es de anotar que la tabla dinámica se construye en una macro y alguno ó algunos item pueden no venir en los datos fuente.

Gracias por su ayuda

 

[Juan Pablo González]

Juan,

es mas facil poner

On Error Resume Next

antes de hacer eso, y "resetearlo" con

On Error Goto 0

 

[Greg Truby]

Caliche,

Como indica Juan Pablo, este tipo de error no debe ser un problema por lo cual hay que parar el programa así que uno debe de poder ignorarlos con On Error Resume Next.

También Tommy Bak y yo jugamos con esta tema hace un tiempo. Si puede leer inglés un poco, aquí está la discusión por si acaso la halla interesante.

Saludos,

 

[Caliche]

Juan,

es mas facil poner

On Error Resume Next

antes de hacer eso, y "resetearlo" con

On Error Goto 0

Gracias, Juan. Ya lo intenté y funcionó bien.

 

[Caliche]

Caliche,

Como indica Juan Pablo, este tipo de error no debe ser un problema por lo cual hay que parar el programa así que uno debe de poder ignorarlos con On Error Resume Next.

También Tommy Bak y yo jugamos con esta tema hace un tiempo. Si puede leer inglés un poco, aquí está la discusión por si acaso la halla interesante.

Saludos,

Gracias, Greg. Ya leí su solución, y me sirve para otro tipo de necesidad. Ensayé la de Juan Pablo con "On error" y funciona perfectamente.

Muchas gracias.