Listbox'ta süzmeyi sütunlara göre yapmak

[fedeal]

listboxta aşagıdaki kodla sayfadan süzme yapıyorum.sorunum listboxun sadece 1 sütununa süzmeyi yapıyor bense listboxtaki verileri sayfaya aktarmak için bunları a sütunundaki verileri ColumnCount1 e b sütunundakileri ColumnCount2 ye almasını istiyorum. ilgi ve yardımlarınız için şimdiden teşekkürler.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Or ComboBox2.Value = "" Then
MsgBox "Lütfen ilgili alanları doldurunuz.", vbInformation
Exit Sub
Else
Sheets("sayfa1").Select
satir = ComboBox1.ListIndex + 2
End If
Dim x As Date
For i = 2 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
On Error Resume Next
x = Sheets("sayfa1").Cells(i, 1)
Y = Sheets("sayfa1").Cells(i, 2)
If x = CDate(ComboBox1.Value) And Y = ComboBox2.Value Then
ListBox1.AddItem Sheets("sayfa1").Cells(i, 1) & "-------" & Sheets("sayfa1").Cells(i, 2) & "-------" & Sheets("sayfa1").Cells(i, 3) & "-------"

End If
Next i
End Sub

 

[fedeal]

bu soruyu kendim 3 listboxla çözdüm

Dim x As Date
For i = 2 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row
On Error Resume Next
x = Sheets("sayfa1").Cells(i, 1)
Y = Sheets("sayfa1").Cells(i, 2)
If x = CDate(ComboBox1.Value) And Y = ComboBox2.Value Then
ListBox1.AddItem Sheets("sayfa1").Cells(i, 1)
ListBox2.AddItem Sheets("sayfa1").Cells(i, 2)
ListBox3.AddItem Sheets("sayfa1").Cells(i, 3)
ihtiyacı olan olabilir diye yazıyorum. iyi çalışmalar.