Bir listeyi filtreleme

[serukanu]

Merhabalar bir sorum olacaktı,
bir listem var ve bu listeyi pivot tabloda filtrelemek istiyorum, bazen çok uzun bir listeyi filtrelemem gerekebiliyor, atlamalar yapabiliyorum,
konuyla ilgili yardımcı olabilir misiniz,
örnek dosya paylaşıyorum, çok aradım ama bu tarz bir örneğe rastlayamadım

 

[serukanu]

Sub süz()
Dim aranacakhücre As Range
Dim x, y As PivotItem

Set aranacakhücre = Range("j1:j50") 'arama kriterinin bulunduğu hücreler
ActiveSheet.PivotTables("Özet").ManualUpdate = True 'filtrelemeyi hızlı bir şekilde _
                                                                yapar. Kaldırılırsa tek tek filtreler
On Error Resume Next
'Önce Kayıtları Gösteriyoruz
For Each x In ActiveSheet.PivotTables("Özet").PivotFields("REFERANS_NO").PivotItems
    'If IsError(Application.WorksheetFunction.Match(x.Name, aranacakhücre, 0)) Then
        x.Visible = True
    'End If
Next x

'Sonra Kayıtları Filtrelitoruz
For Each y In ActiveSheet.PivotTables("Özet").PivotFields("REFERANS_NO").PivotItems
    If IsError(Application.WorksheetFunction.Match(y.Name, aranacakhücre, 0)) Then
        y.Visible = False
    End If
Next y

ActiveSheet.PivotTables("Özet").ManualUpdate = False
End Sub

bu kodu kullanarak çözdüm