How to omit data from pivot filter

[ydw_10]

I want to omit (uncheck) values which starts with '16' in pivot filter. My values are 4 digits & are numbers only.

I tried this code but not working.

Dim PvtTbl3 As PivotTable
Set PvtTbl3 = Worksheets("FINAL").PivotTables("PivotTable3")
PvtTbl3.ClearAllFilters
PvtTbl3.PivotFields("OPUS CC").PivotFilters.Add Type:=xlCaptionContains, Value1:="<>16"

 

[mole999]

try macro recorder to record the action you want

 

[ydw_10]

With ActiveSheet.PivotTables("PivotTable4").PivotFields("OPUS CC")
.PivotItems("1650").Visible = False
.PivotItems("1651").Visible = False
.PivotItems("1652").Visible = False
.PivotItems("1653").Visible = False
.PivotItems("1654").Visible = False
End With

But it won't work because my values are starting with 16 & changes between 1600 to 1699

 

[mole999]

not sure this will work

.PivotItems("16??").Visible = False

 

[ydw_10]

No luck

 

[ydw_10]

Thanks!!!

I got the anwer after lot of scratch

PvtTbl4.PivotFields("OPUS CC").PivotFilters.Add Type:=xlCaptionDoesNotBeginWith, Value1:="16"