Filtro tabella pivot

[fastbike73]

Buonasera al forum, stamattina ho trovato la soluzione da solo, stavolta la domanda/problema
è più ardua e non credo di saperne la soluzione per questo mi rivolgo a voi.
In una tabella pivot che riepiloga numerosi articoli e, nell'unica colonna, il valore delle vendite,
ho applicato un filtro per vedere i primi 10 articoli (dal più alto al più basso). Poi, da Strumenti tabella pivot,
Analizza ho inserito un filtro dati sì da poter selezionare un singolo articolo e vederne il relativo valore.
Il problema sta nel fatto che appena cancello il filtro per la visualizzazione del singolo articolo si cancella anche
quello per la visualizzazione dei primi 10 articoli. In questo modo la tabella pivot diventa veramente lunga e difficile
da scorrere, considerato che nel foglio sono presenti altri oggetti.
A questo punto la domanda; è possibile in qualche modo, anche eventualmente in vba, poter cancellare soltanto il filtro
di visualizzazione del singolo articolo lasciando invariato il filtro per la visualizzazione dei primi 10?
Spero di non essere stato infelice nella spiegazione. Nell'eventualità cercherò di mettere online qualche esempio..
Vi ringrazio anticipatamente per il vostro interesse ed aiuto.

fastbike73

[Anthony47]

Registra 4 macro diverse mentre:
1) imposti il filtro per visualizzare i top10
2) rimuovi il filtro dei top10
3) imposti un filtro per visualizzare solo alcune delle voci
4) imposti la visualizzazione di tutte le voci presenti (corrispondente a "seleziona tutto")
Poi pubblica il codice ottenuto.
Questo ci dara' lo spunto per assemblare le macro definitive.

Se hai la possibilita' di allegare il file con l'elenco e la tabella pivot usata per i test meglio ancora.

Ciao

[fastbike73]

Buongiorno Anthony, ti ringrazio per la risposta. Prima di sera posto il tutto. Mi occorre un po' di tempo per ripulire
il foglio dai dati sensibili.
a dopo...

fastbike73

[fastbike73]

Buonasera Anthony, ti allego il file così forse riesci meglio a comprendere la mia esigenza.
Ti ringrazio anticipatamente per l'aiuto.

https://www.dropbox.com/s/tau7q5k6li129ui/Dashboard%20vendite2.xlsx?dl=0

[Anthony47]

Prendo il file, pero' ti avevo chiesto di registrare 4 macro che non trovo.
Mi servono per identificare quali sono le tabelle, quali i campi, quali i valori di cui stiamo a parlare.
(e non spiegarmi come potrei farmelo da solo, mi raccomando)

Ciao

[fastbike73]

...
(e non spiegarmi come potrei farmelo da solo, mi raccomando)

Buongiorno Anthony, non avevo capito l'utilità delle macro perdonami.
Ecco il link al nuovo file.

https://www.dropbox.com/s/rt9x31s9de3p9km/Dashboard%20vendite2.xlsm?dl=0

[Anthony47]

Io procederei in questo modo:
1) Aggiungi sul foglio Dashboard un checkbox (dalla famiglia ActiveX) per abilitare /disabilitare la selezione Top10


2) Sul modulo vba di Dashboard (ci arrivi facendo Tasto dx sul tab col nome Dashboard, poi scegli Visualizza codice):

Codice: Seleziona tutto

Private Sub CheckBox1_Change()
Call CBCheck
End Sub

Codice: Seleziona tutto

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Target.Name = "Top10_Fam") Then
    Application.EnableEvents = False
        If Me.CheckBox1 Then Call CBCheck
    Application.EnableEvents = True
End If
End Sub

3) In un Modulo standard del vba:

Codice: Seleziona tutto

Sub CBCheck()
Application.EnableEvents = False
If Sheets("Dashboard").CheckBox1 Then
    Imposto_filtro_top10
Else
    Rimuovo_filtro_top10
End If
Application.EnableEvents = True
End Sub

Lasci le due Sub registrate Imposto_filtro_top10 e Rimuovo_filtro_top10

Quando vuoi applicare il filtro Top10 devi spuntare il checkbox; quando la pivot viene modificata lo stato del checkbox determina se il filtro Top10 verra' riapplicato o meno.

Ciao

[fastbike73]

Buongiorno Anthony, ho seguito le tue istruzioni ma appena ho messo la spunta nella checkbox mi ha dato un errore che ti riporto di seguito:
"Errore '1004': Errore definito dall'applicazione o dall'oggetto"
Il debug mi porta a queste righe della "Sub Imposta_Filtro_Top10"

Codice: Seleziona tutto

ActiveSheet.PivotTables("Top10_Fam").PivotFields("Famiglia").PivotFilters.Add2 _
        Type:=xlTopCount, DataField:=ActiveSheet.PivotTables("Top10_Fam"). _
        PivotFields("Venduto"), Value1:=10

Per completezza ti allego nuovamente il file con le modifiche apportate. Sicuramente avrò sbagliato qualcosa...
https://www.dropbox.com/s/365l6by84qy8mc1/Dashboard%20vendite2.xlsm?dl=0

[Anthony47]

Infatti era capitato anche a me e avevo modificato aggiungendo On Error Resume next:

Codice: Seleziona tutto

    On Error Resume Next
    ActiveSheet.PivotTables("Top10_Fam").PivotFields("Famiglia").PivotFilters.Add2 _
        Type:=xlTopCount, DataField:=ActiveSheet.PivotTables("Top10_Fam"). _
        PivotFields("Venduto"), Value1:=10
    On Error GoTo 0

Poi alla fine delle prove me ne sono dimenticato...

Ciao

[fastbike73]

Perfetto Anthony!! Ti ringrazio!!