Pivot table, need to return the number of filters checked

[renigar]

I have a pivot table of data where I need to count the number of filter boxes checked in particular field drop down. I will then use that number for calculations and conditional formatting. I've figured out how to count all the boxes in the filter drop down but not just the checked ones. Can it be done? The field being filtered is a date field for hours. Depending on how many dates are checked will determine what calculations and conditions are set. I'vd tried searching and haven't quite seen what I need. I don't do macros enough to be proficient. Any help would be greatly appreciated.

 

[SkipVought]

hi,

If you had recorded a macro selecting items, you may have seen a solution.

    Dim pvi As PivotItem, cnt As Integer
    
    For Each pvi In ActiveSheet.PivotTables("PivotTable1").PivotFields("name").PivotItems
        If pvi.Visible Then cnt = cnt + 1
    Next

    MsgBox "There are " & cnt & " fields selected"

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[renigar]

Thanks Skip,
This works great. Sometimes the answers are so easy I can;t see them. I appreciate your help.