Check/unCheck PivotItems from another sheets column

Question: Do I need to count the records in the table to toggle each one from : PivotItems("16679").Visible = True (to False?) OR is there a global means of unchecking pivotitems for 15K records? Recording a macro doesn't help. If I need to count them, it looks like the pivot cache would give the answer.

I saw this user defined function which is helpful but I'm not sure how to convert it from "Function" to something useful. Any hints?

"=GetRecords(A3)" {this is a user defined function for the spreadsheet}
'place this in the active PT on the active sheet.


Function GetRecords(rngPT As Range) As Long
   Dim pt As PivotTable
   Set pt = rngPT.PivotTable
   GetRecords = ActiveWorkbook _
     .PivotCaches(pt.CacheIndex).RecordCount
End Function

With the above infomation I could to a For statement to toggle .Visible = false

Any hints?

Thanks
FI

You should be able to loop through the pivotfields items, although if you have 15K unique items it may have problems.

Can you post a small sample file, say 4 columns, 100 records and 3 filter records. Set the PT up with the required filtering manually applied.

With code, which is very slow.
I named the range of Filter ID's, H5:H21, as FAILED

Function CheckValue(Value As Long, DataTable As Range) As Boolean
    On Error Resume Next
    CheckValue = (Application.WorksheetFunction.Match(Value, DataTable, 0) > 0)
    Exit Function
End Function

Sub FilterPTItems()

    Dim rngFailed As Range
    Dim pvtTable As PivotTable
    Dim pvtField As PivotField
    Dim pvtItem As PivotItem
    Dim blnShow As Boolean
    
    Set rngFailed = ThisWorkbook.Names("FAILED").RefersToRange
    Set pvtTable = ThisWorkbook.Worksheets("SN Retest").PivotTables(1)
    Set pvtField = pvtTable.PivotFields("Serial_num")
    
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each pvtItem In pvtField.PivotItems
        pvtItem.Visible = CheckValue(CLng(pvtItem.Value), rngFailed)
    Next
    Application.ScreenUpdating = True
End Sub

A quicker approach is to add a field to your pivot chart data source and use that as the page field.

I added a new field, called SERIAL_FILTER, with the following formula.
=MATCH(A2,FAILED,0)>0

Update the data source to include the new field and then used as the Page field showing TRUE.