List selection in pivot table report filter

[Badger101]

Not been on a forum for years but I turn for your help as really snowed under at moment and need help to write code to list out the selected items in all fields of the pivot table report filters. Any one willing to help please.

Thanks,


Richard

[Badger101]

Ok sorted I just butchered this a bit.


Sub sd()
Set nwsheet = Worksheets.Add
Dim pvtitem As PivotItem
nwsheet.Activate
Set pvtTable = Worksheets("Summary").Range("A1").PivotTable
rw = 0
For Each pvtitem In pvtTable.PivotFields("Item").HiddenItems
rw = rw + 1
nwsheet.Cells(rw, 1).Value = pvtitem.Name
nwsheet.Cells(rw, 2).Value = pvtitem.Visible
Next pvtitem
End Sub

[Badger101]

in fact i went with


Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvtField As PivotField
Dim pvtitem As PivotItem
Range("d3").Clear
For Each pvtitem In Target.PivotFields("Item").HiddenItems
If pvtitem.Visible Then
Range("d3") = Range("d3") & pvtitem.Name & " | "
End If
Next pvtitem
End Sub