makro ile tablodaki verileri filtreleme

[ermanusta]

selamlar,
bir tablom var ve sürekli çeşitli kombinasyonlarda filtreleme yapmam gerekiyor
bunu makro yardımıyla yapabilirmiyim?

belirli hücrelere yazdığım kelimelere göre tablo üzerinde filtreleme yapmalı

 

[Necdet]

Merhaba,
Aşağıdaki kod K1 hücresindeki değere göre filtre yapar. Değer boş ise hepsini gösterir.
Umarım bir fikir verir.
Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [K1]) Is Nothing Then Exit Sub
    
    If Target.Value = "" Then
    Range("Tablo1[[#Headers],[ürün]]").Select
    ActiveSheet.ShowAllData
    Else
        ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:=Target.Value
    End If
    
End Sub

 

[ermanusta]

Merhaba,
Aşağıdaki kod K1 hücresindeki değere göre filtre yapar. Değer boş ise hepsini gösterir.
Umarım bir fikir verir.
Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [K1]) Is Nothing Then Exit Sub
   
    If Target.Value = "" Then
    Range("Tablo1[[#Headers],[ürün]]").Select
    ActiveSheet.ShowAllData
    Else
        ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:=Target.Value
    End If
   
End Sub

evet hocam tek hücre için çalışıyor, fakat bunu iki hücre için veya tek hücrede yazan hem a hem b için örnek (a, b) için nasıl yazabilirim [K1] [L1] [M1]
gibi denedim ama olmadı

 

[ermanusta]

Mesela bu tablodaki verileri süzeren birkaç seçenek seçip süzmek işlemi gibi olmalı veya ikinci resimdeki gibi "Geçerli seçimi filtreye ekle" tiki seçilmiş gibi süzme yapabilmeliyim.

 

[Necdet]

Merhaba,
Makro kaydet ile elde ettiğim kodları inceleyiniz.
Ben tek sütun için 3 değişkene göre denedim, sorun yok.