Karakter filtreleme

[kadir78]

İyi günler. Çalıştığım sayfanın C sütununda içerisinde 6 haneli sayılar bulunan yaklaşık 5000 satır hücre var. Bu hücrelerin bazılarında 6 haneli sayının arkasında -A ve -B ile yazılmış hücreler var. C sütununa filtre yaparak -A ve -B olan hücreleri gösterilmemesini sadece 6 haneli rakam olan hücreleri göstermesini sağlamak için makro kodlarına ihtiyacım var yardımcı olurmusunuz.

 

[kulomer46]

Merhaba

Aşağıdaki makro kodları işinize yarayabilir.

Selamlar...

Sub Makro_ile_Otomatik_Özel_Filtre()
'24.03.2021  19:54

    sonc = Cells(65500, 3).End(xlUp).Row
  
    Range("C2").Select
    Selection.AutoFilter

    ActiveSheet.Range("$C$1:$C$" & sonc).AutoFilter Field:=1, Criteria1:="<>*-A", _
        Operator:=xlAnd, Criteria2:="<>*-B"

End Sub

 

[kadir78]

Sayın kulomer46. Kodlar için teşekkür ederim sağolun.

 

[kulomer46]

Sayın kulomer46. Kodlar için teşekkür ederim sağolun.

Selamlar...