Domanda Macro per eseguire filtro in una pivot

Lelena

Nuovo utente
15 Maggio 2019
5
0
1
Excel 2019
0
Partendo da una pivot per cui alcuni campi restano sempre filtrati devo:

  1. eliminare il filtro da alcuni campi --> per il momento, nessun problema.
  2. applicare un nuovo filtro su alcuni campi in funzione al valore presente in alcune celle del foglio --> nella riga di codice in rosso avviene l'errore e compare "Errore di run-time '1004': Impossibile impostare la proprietà CurrentPage per la classe PIvotField.
Di seguito il codice:

Visual Basic:
Componente1 = Worksheets("Stampa IDL da QRCODE").Cells(4, 5)
Colore1 = Worksheets("Stampa IDL da QRCODE").Cells(8, 5)
Documento1 = Worksheets("Stampa IDL da QRCODE").Cells(9, 5)
Datadocumento1 = Worksheets("Stampa IDL da QRCODE").Cells(11, 5)

'elimino filtri dai campi " descrizione variante", "Num Doc", "Data doc".
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields(" descrizione variante").ClearAllFilters
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Num Doc").ClearAllFilters
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Data Doc.").ClearAllFilters

'applico i nuovi filtri nei campi "Componente"," descrizione variante", "Num Doc", "Data doc".
[COLOR=rgb(184, 49, 47)]Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Componente").CurrentPage = Componente1[/COLOR]
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields(" descrizione variante").CurrentPage = Colore1
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Num Doc").CurrentPage = Documento1
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Data Doc.").CurrentPage = Datadocumento1
A disposizione per qualsiasi altra informazione.
Grazie
Ciao
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
16.787
574
113
Como
2011MAC 2016WIN
251
Ciao L @Lelena
ci potresti allegare un file di esempio?
 

Lelena

Nuovo utente
15 Maggio 2019
5
0
1
Excel 2019
0
Vi allego un file simile e vi riscrivo il codice della macro relativa a questo file.
Si presenta lo stesso problema.
Grazie

Visual Basic:
Sub Macro5()
Componente1 = Worksheets("Stampa IDL da QRCODE").Cells(4, 5)
Colore1 = Worksheets("Stampa IDL da QRCODE").Cells(8, 5)
Documento1 = Worksheets("Stampa IDL da QRCODE").Cells(9, 5)
Datadocumento1 = Worksheets("Stampa IDL da QRCODE").Cells(11, 5)


Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Campo 2").ClearAllFilters
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Campo 4").ClearAllFilters
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Data 3").ClearAllFilters


Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Campo 1").CurrentPage = Componente1
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Campo 2").CurrentPage = Colore1
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Campo 4").CurrentPage = Documento1
Worksheets("Stampa IDL da QRCODE").PivotTables("Tabella_pivot13").PivotFields("Data 3").CurrentPage = Datadocumento1

End Sub
 

Allegati

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
16.787
574
113
Como
2011MAC 2016WIN
251
Mah, nel file che hai allegato non riesco a replicare l'errore che dici.
Mi chiedo però se usiamo una macro per filtrare potremmo anche fare a meno della Pivot.
 

Lelena

Nuovo utente
15 Maggio 2019
5
0
1
Excel 2019
0
Ciao,
Non riesci a replicarlo nel senso che se esegui la macro la riga 13 non ti dà errore?
Purtroppo devo usare la pivot perché nel file originale mi serve per rielaborare i dati presenti su un altro foglio.
Grazie
Ciao
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
16.787
574
113
Como
2011MAC 2016WIN
251
Giusto per capirci, intendevo questo
Nella cella A1 c'è un menu a tendina che si crea in automatico in base alle voci della colonna F dell'altro foglio.
 

Allegati

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!