Advanced Filter

[xrolexx]

Merhaba arkadaslar,

Kod yardimiyla "Advanced filter" özelligini kullanmak istiyorum..Bununla ilgili örnek calismayi ekteki dosyada bulabilirsiniz..

Yardimlarinizi bekliyorum..

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Range("K1:L1").Value = Range("A1:B1").Value
Range("M1").Value = Range("D1").Value
Range("F1:I65536").Clear
ListBox1.Height = 156
ListBox2.Height = 156
ListBox3.Height = 156
Range("A1:D" & Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "K1:M2"), CopyToRange:=Range("F1"), Unique:=False
End Sub

 

[xrolexx]

Emegin icin cok tesekkürler Evren abi..Peki bir listbox'tan ayni anda 1'den cok veri secmek istiyorsak bunu nasil yapabiliriz? Yani aslinda Listbox'lar multiselect olacak ve x bir listbox'tan 1'den cok veri secebilecegiz bunun sonunda filtreleme gerceklesecek..Örnegin isimlerden ayni anda Ali ve Ebru'yu secelim arabalardan ayni anda BMW ve Honda secilsin renklerden mesela sadece siyah secilsin..

Yani tüm kriterlerimiz birbirlerinden bagimsiz olarak asagidaki gibi olacak ve SANIRIM KOMBINASYON OLUSTURMALIYIZ ya da daha basit bir yolu var mi???

Ali BMW Siyah
Ebru Honda