macro per cambiare il filtro campo pagina di una pivot

[matzap]

Ciao Anthony,
puoi aiutarmi ancora una volta?
non so perchè ma in questo ciclo, per x=1, CurItem assume valore 0 mentre nel campo Matricola ci sono dei nomi e perciò si blocca

For x = 1 To Worksheets("Calcolo").PivotTables("Tabella_Pivot1").PivotFields("Matricola").PivotItems.Count
CurItem = .PivotFields("Matricola").PivotItems(x).Value
Worksheets("Calcolo").Range("C2") = x
Worksheets("Calcolo").Range("C3") = CurItem
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Matricola").CurrentPage = CurItem

sapresti dirmi perchè e come risolvere?
grazie

[Anthony47]

Non hai detto "come" si blocca, ma intanto prova a modificare in

Codice: Seleziona tutto

CurItem = .PivotFields("Matricola").PivotItems(x).Value & ""


Ciao

[matzap]

grazie Anthony, appena posso implementarlo lo provo e ti faccio sapere.