Question

In the source sheet of my pivot table; contains two columns; one for the names and another for the scores. As the thread title suggests, I want to display all names and their corresponding scores of those with even number scores.

An alternative way to accomplish this is to create a third column and ran an IF formula to check which numbers are odd. And then include this third column to the pivot table and use it as the filter.

But is there a way to do the same without modifying the source?

Answer 1

You can loop through the pivot items and then divide them by 2 to check if they are even numbers or not and if they are not then simply hide them. See this example. Please amend it to suit your needs. Also, I have not done any error handling. I am sure you can take care of that…

CODE

Option Explicit

Sub HideOddNumbers()
    Dim ws As Worksheet
    Dim pvtItem As PivotItem
    Dim pvt As PivotTable
    Dim pvtFld As PivotField

    '~~> Change this to the respective sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    '~~> Change this to the respective pivot name
    Set pvt = ws.PivotTables("PivotTable1")

    '~~> This is the column
    Set pvtFld = pvt.PivotFields("Scores")

    With pvtFld
        .CurrentPage = "(All)"
        .EnableMultiplePageItems = True

        '~~> Loop through all items in the pivot and
        '~~> divide the values by 2 and check if they are even or not
        For Each pvtItem In pvtFld.PivotItems
            If Val(pvtItem.Value) Mod 2 <> 0 Then pvtItem.Visible = False
        Next
    End With
End Sub

SCREENSHOT

Before:

After: