Pivot Table Trouble

[alex7896]

I have no idea if this is possible to do or not, but here goes:
I have a pivot table for a list of tasks that various people can perform. Some people can only do certain tasks, and the table can be filtered for multiple tasks (showing the person with the most available skills at the top... etc etc etc..)

What I am trying to do is add a section to the table saying "you have serached for the following: "

In it I want to basically display what items were indicated in the drop down menu, and thereby allow a user to easily see their selection without having to reopen the drop down menu!

Is this possible or a pipe dream???

 

[Fazza]

hi, Alex. Maybe below can be modified for what you want? HTH, Fazza

Sub test()
 
  Dim pf As PivotField
  Dim pit As PivotItem
  Dim strFilterInfo As String
 
  For Each pf In ActiveSheet.PivotTables(1).PivotFields
    If Not pf.Orientation = 0 Then
      strFilterInfo = strFilterInfo & vbCr & pf.Name & vbCr
      For Each pit In pf.PivotItems
        If pit.Visible Then strFilterInfo = strFilterInfo & " - " & pit.Name & vbCr
      Next pit
    End If
  Next pf
 
  Set pit = Nothing
  Set pf = Nothing
 
  MsgBox strFilterInfo
End Sub