2 den fazla içerir buldurma

[editedbycenk]

Merhaba

Vba ile çoklu içerir buldurabilirmiyiz

elimde 15 karakter uzunluğunda veri var bunların içinde 3 karakter harf yazıyor gerisi sayı bu harfler random bi yerde YCN YCD YKN YND UCN vs bunların hangisini içerirse onları filtrelesin istiyorum excel in kendi filtresi ile en fazla 2 tane içerir çalıştırabiliyoruz , 9 tane çalıştırmam mümkünmü

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Kriterler As Variant
    Kriterler = Array("YCN", "YCD", "YKN") 'Buraya diğerlerini de ekleyebilirisiniz.
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:=Kriterler, Operator:=xlFilterValues
End Sub

 

[editedbycenk]

H

Merhaba.

Sub test()
    Dim Kriterler As Variant
    Kriterler = Array("YCN", "YCD", "YKN") 'Buraya diğerlerini de ekleyebilirisiniz.
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:=Kriterler, Operator:=xlFilterValues
End Sub

Hocam böyle hiç bulmadı içerir formülü bumu

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki benzer bir konu işlemiştik.

Aynı sütunda makro ile çoklu filtreleme yapma

Merhabalar Aynı sütunda(Örnek E sütunu) makro ile çoklu filtreleme yapmak istiyorum kod Sub cokluFiltre() Dim ws As Worksheet Dim rng As Range Dim lr, i As Long Dim col As Collection Dim arr() As Variant Dim durum As String Set col = New Collection lr = Cells(Rows.Count...

www.excel.web.tr

 

[Korhan Ayhan]

Ek olarak bu işlemi paylaştığım linkteki kodla yapabileceğiniz gibi kriterlerinizi bir sütuna yazarak excelin GELİŞMİŞ FİLTRE özelliğini kullanarak kod kullanmadan da yapabilirsiniz.

 

[Muzaffer Ali]

H

Hocam böyle hiç bulmadı içerir formülü bumu

Kodu kendinize göre uyarlamalısınız.
ActiveSheet= aktif sayfada filtreleme yapar.
Range("A:B") sadece A ve B kolonu filitreye dahil edilir.
.AutoFilter Field:=1 Filitreye dahil edilen kolonların 1. si ne göre filitre yapılır.

Bunları kendinize göre değiştirin.
Yine de yapamazsanız dosyanız ekleyin yapalım.

 

[Haluk]

Libre Office'de "RegEx" ile alternatif;




.