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