Başlangıç Bitiş Tarihli Filtre Oluşturma

Arkadaşlar Merhabalar,

Ekte aylık satışlara ait tablo yer almaktadır. İnternette bulduğum kodları kendimce uyarladım fakat başlangıç ve bitiş tarihlerine istinaden Tb3ListBox2 de click yaptığımda Tb3ListBox2 nin üstünde yer alan, başlangıç ve bitiş tarihleri arasında olanları Tb3ListDetay Listbox a listelemek istiyorum. yani bir filtre oluşturmak istiyorum. Şimdiden çok teşekkür ederim.

Private Sub Tb3ListBox2_Click()

Tb3TxbLogicalref = Tb3ListBox2.List(Tb3ListBox2.ListIndex, 1)


Tb3ListDetay.Clear

Dim x As Long
Dim st As Long
For x = 2 To 100000
If Sheets("Satışlar").Range("a" & x).Value = "" Then
st = x - 1
Exit For
End If
Next




For Each isim In Sheets("Satışlar").Range("Satışlar!b1:b" & x - 1)
If UCase(LCase(isim)) Like UCase(LCase(Tb3TxbLogicalref)) Then ' bu alana ne yaptıysam başlangıç ve bitiş tarihli filtreleyemedim
liste = Tb3ListDetay.ListCount
Tb3ListDetay.AddItem -1
Tb3ListDetay.List(liste, 1) = isim.Offset(0, -1) '-4
Tb3ListDetay.List(liste, 2) = isim.Offset(0, 0) '-3
Tb3ListDetay.List(liste, 3) = isim.Offset(0, 1) '-2
Tb3ListDetay.List(liste, 4) = isim.Offset(0, 2) '-2
End If
Next

Tb3ListDetay.ColumnCount = 4
Tb3ListDetay.ColumnHeads = True
Tb3ListDetay.ColumnWidths = "50;50;50;50;50"
Tb3ListDetay.Selected(Tb3ListDetay.ListCount - 1) = True


End Sub