Code: Select all
Sub LoopThroughPivotItems()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim filterDate As Date
Set pt = ActiveSheet.PivotTables("PivotTable2")
Set pf = pt.PivotFields("ÇáÊÇÑíÎ")
pf.ClearAllFilters
filterDate = CDate(ActiveSheet.Range("Q2").Value)
For Each pi In pf.PivotItems
If CLng(DateValue(CDate(pi.Name))) > CLng(DateValue(filterDate)) Then
pi.Visible = False
Else
pi.Visible = True
End If
Next pi
End Sub