Eliminare filtri matrice pivot

Hai un problema con Excel?

Nuova discussione

Eliminare filtri matrice pivot
di Lucas Arts (utente non iscritto) data: 04/11/2015 16:56:28
Salve,
avrei bisogno di una piccola consulenza. Devo stampare un foglio per ogni operatore (colonna A) da una matrice pivot, tramite l'utilizzo di un filtro e di colonne nascoste. Vedo che la macro fino alla stampa funziona rapidamente, però nel post stampa va molto lenta.

Questa parte critica è quella dove tolgo il filtro e scopro le colonne. La eliminerei volentieri ma alla fine di ogni stampa devo visualizzare tutta la matrice.

Sotto potete trovare questa parte di codice.

C'è una soluzione per potere velocizzare questo passaggio? Nel concreto, c'è un comando che può automaticamente farmi visualizzare tutta la tabella pivot?
Grazie in anticipo

ActiveSheet.Range("$A$2:$AA$1582").AutoFilter Field:=12
    Columns("F:L").Select
    Range("L1").Activate
    Selection.EntireColumn.Hidden = False
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Operatori")
        .PivotItems("ARSEN").Visible = True
        .PivotItems("AYNI").Visible = True
        .PivotItems("ELTON").Visible = True
        .PivotItems("LEO").Visible = True
        .PivotItems("MARCO").Visible = True
        .PivotItems("MARIA/MARIO").Visible = True
        .PivotItems("NICO").Visible = True
        .PivotItems("PASQUALE").Visible = True
        .PivotItems("SIMO/PAOLA").Visible = True
        .PivotItems("SIMONE").Visible = True
        .PivotItems("TANIA").Visible = True
        .PivotItems("TANO").Visible = True
        .PivotItems("ZAMIR").Visible = True
        .PivotItems("(blank)").Visible = True
        .PivotItems("MARCELLO").Visible = True
        .PivotItems("GABRIELE P.").Visible = True
        .PivotItems("LUCA").Visible = True
        .PivotItems("STEFANO").Visible = True
        .PivotItems("MARIA").Visible = True
        .PivotItems("zz").Visible = True
        .PivotItems("SHPETIM").Visible = True
        .PivotItems("RENATO").Visible = True
        .PivotItems("S").Visible = True
    End With

Vuoi Approfondire?