Makro İle Filtreleme (*** İçeren)

[adoen]

Merhaba Arkadaşlar ;

Filtreleme makrosunu aşağıda ki şekilde yaptım fakat filtrelenecek rakamlar değişkenlik gösterebiliyor. filtrelemeyi 209 ile başlayanları filtreletecek şekilde nasıl düzenleyebilrim.

Yardımlarınızı bekliyorum.
İyi Günler dilerim..

Sub Filtre()

    ActiveSheet.ListObjects("Table__172.27.27.14_ABONENETDB_DagitimTarifeGruplari") _
        .Range.AutoFilter Field:=23, Criteria1:=Array("20901", "20904", "20907", _
        "20908", "20909", "20913", "20914", "20915", "20919", "20921", "20922", "20923", "20924" _
        , "20925", "20926", "20927", "20930", "20931", "20933", "20934", "20935", "20937", _
        "20940", "20943", "20949", "20954", "20955", "20967", "20970", "20971", "20972", "20973" _
        , "20974", "20975", "20977", "20979", "20982", "20984", "20986", "20988", "20989", _
        "20991", "20992", "20994", "20995"), Operator:=xlFilterValues
    
End Sub

 

[Muzaffer Ali]

Array("20901", "20904", "20907", _
        "20908", "20909", "20913", "20914", "20915", "20919", "20921", "20922", "20923", "20924" _
        , "20925", "20926", "20927", "20930", "20931", "20933", "20934", "20935", "20937", _
        "20940", "20943", "20949", "20954", "20955", "20967", "20970", "20971", "20972", "20973" _
        , "20974", "20975", "20977", "20979", "20982", "20984", "20986", "20988", "20989", _
        "20991", "20992", "20994", "20995")

Bu kısmı silip "=209*" yazın. Aşağıdaki şekilde olacak

ActiveSheet.ListObjects("Table__172.27.27.14_ABONENETDB_DagitimTarifeGruplari") _
        .Range.AutoFilter Field:=23, Criteria1:="=209*" , Operator:=xlFilterValues

 

[adoen]

Array("20901", "20904", "20907", _
        "20908", "20909", "20913", "20914", "20915", "20919", "20921", "20922", "20923", "20924" _
        , "20925", "20926", "20927", "20930", "20931", "20933", "20934", "20935", "20937", _
        "20940", "20943", "20949", "20954", "20955", "20967", "20970", "20971", "20972", "20973" _
        , "20974", "20975", "20977", "20979", "20982", "20984", "20986", "20988", "20989", _
        "20991", "20992", "20994", "20995")

Bu kısmı silip "=209*" yazın. Aşağıdaki şekilde olacak

ActiveSheet.ListObjects("Table__172.27.27.14_ABONENETDB_DagitimTarifeGruplari") _
        .Range.AutoFilter Field:=23, Criteria1:="=209*" , Operator:=xlFilterValues

Teşekkur ederim çok yardımı oldu.