B Hücresindeki Tarihe göre raporlama

[bahones]

Merhaba; B Hücresinde bulunan tarihleri textbox lar yardımıyla userform üzerinde raporlama yapmak istiyorum yardımcı olursanız sevinirim.
Mesela (textbox1 -01/11/2011 -textbox2 30/11/2011 ) arasını nasıl raporlayabilirim.

 

[bahones]

elimde (Private Sub CommandButton1_Click()
If ComboBox1.Value = "" And ComboBox2.Value = "" Then CommandButton1 = False: MsgBox "TARİH ARALIKLARINI YAZIN...", vbExclamation, Dim X As Date
For i = 1 To ActiveSheet.Cells(65536, 2).End(xlUp).Row
X = ActiveSheet.Cells(i, 2)
If ComboBox1.Value > ComboBox2.Value Then MsgBox "Başlangıç Tarihi Bitiş Tarihinden Büyük Olamaz...": Exit Sub Else
On Local Error Resume Next
If X >= CDate(ComboBox1.Value) And X <= CDate(ComboBox2.Value) Then
With ListBox1
.AddItem ActiveSheet.Cells(i, 1)
.List(.ListCount - 1, 1) = ActiveSheet.Cells(i, 2)
.List(.ListCount - 1, 2) = ActiveSheet.Cells(i, 3)
.List(.ListCount - 1, 3) = ActiveSheet.Cells(i, 4)
.List(.ListCount - 1, 4) = ActiveSheet.Cells(i, 5)
.List(.ListCount - 1, 5) = ActiveSheet.Cells(i, 6)
End With
End If
Next i
End Sub) Böyler bir kod var ama bu listboxta sadece 1. stunu gösteriyor bunda nasıl bir değişiklik yapabilirim.

 

[bahones]

Yardımcı olabilecek kimse yokmu ?