Bir listeyi filtreleme

Katılım
31 Ocak 2016
Mesajlar
25
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
04-01-2024
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
 

Ekli dosyalar

Katılım
31 Ocak 2016
Mesajlar
25
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
04-01-2024
Kod:
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
 
Üst