Filtro Tabella PIVOT

Buongiorno a tutti
Premetto non sono un esperto di VBA

ho generato 4 tabelle pivot nello stesso foglio
e in tutte e 4 le tabelle pivot ho lo stesso campo "CEN" che è nel filtro.
premetto che il campo CEN contiene 1041 voci.

ho l'esigenza di filtrare una sola voce oppure tutte , sempre per il campo CEN
quindi in un foglio riepilogo ho inserito una combobox che contiene tutti i valori del campo CEN , una volta selezionato in valore desiderato nella combobox e cliccando il pulsate ATTIVA filtro eseguo una macro VBA

Sheets("LOC").Select
x = Range("d1").Value


Sheets("PIVOT LOC").Select

ActiveSheet.PivotTables("Tabella pivot1").ManualUpdate = True

ActiveSheet.PivotTables("Tabella pivot1").PivotFields("Cen").CurrentPage = _
"(All)"
With ActiveSheet.PivotTables("Tabella pivot1").PivotFields("Cen")
.PivotItems("Aquila").Visible = False
.PivotItems("Baveno").Visible = False
.PivotItems("Bellagio").Visible = False
.PivotItems("Bologna").Visible = False
.PivotItems("Cagliari").Visible = False
.PivotItems("Cefalu").Visible = False
.PivotItems("Oristano").Visible = False
si ripete x 1041 voci
End With
With ActiveSheet.PivotTables("Tabella pivot1").PivotFields("Cen")
.PivotItems(x).Visible = True
end with


premetto che funziona correttamente ma i tempi di elaborazione sono biblici...
infatti occorre scrivere 1041 item messi a visible=false e poi mettere visibile=true quello interessato x 4 pivot ....

e poi per vedere tutto riscrivere il tutto x a true...

vorrei sapere se vi è la possibilità di mettere tutti gli item a visible=false nello stesso momento e viceversa.

non posso allegare il file in quanto vi sono dati sensibili...

grazie per l'aiuto che mi darete.
Alberto

Ciao
è un problema della modalità filtro dell'area filtri delle pivot che offre solo la possibilità di seleziona 1 o più elementi.

Prova qualcosa del genere:



è un esempio che toglie tutti i filtri al campo "cen" e lo filtra con "Aquila".
Ovviamente ad Aquila sostituirai la variabile che contiene il nome da filtrare.

Se invece il campo "cen" al posto di metterlo nel filtro lo metti nelle righe, il relativo filtro contiene tutte le possibilità di fare quello che vuoi senza ricorrere al vba.

saluti

Grandioso !!!funziona perfettamente

Grazie

Alberto