İki tarih arası süzme kodu

[Ridan]

Merhabalar...

ListBox'ta iki tarih arası süzme kodlarını bu siteden aldım. Fakat ekteki dosyaya göre "Q" sütunu referanslı listeleme yapmak istiyorum. İçinde bulunduğumuz yıl 2012 ise, Q sütunundaki 2012 yılına ait tarihlere göre ListBoxta listelenecek. A-W arası... Kodları revize edemedim. Veya başka kodlar da olabilir.
----------------------------------------

Sub Tarihsuz1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Tarihsuz1 = Format(Tarihsuz1, "dd.mm.yy")
End Sub

Private Sub Tarihsuz2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Tarihsuz2 = Format(Tarihsuz2, "dd.mm.yy")
End Sub

Private Sub CommandButton2_Click()
If Tarihsuz1 = Empty Then
MsgBox "Lütfen ilk tarihi giriniz !", vbCritical, "Dikkat !"
Tarihsuz1.SetFocus
Exit Sub: End If

If Tarihsuz2 = Empty Then
MsgBox "Lütfen son tarihi giriniz !", vbCritical, "Dikkat !"
Tarihsuz2.SetFocus
Exit Sub: End If

Liste.RowSource = Empty

ReDim VERİ(1 To 8, 1 To 1)

Sütun = 0

For X = 2 To Cells(65536, "A").End(3).Row
If Cells(X, 2) >= CDate(Tarihsuz1) And Cells(X, 2) <= CDate(Tarihsuz2) Then
Sütun = Sütun + 1
ReDim Preserve VERİ(1 To 8, 1 To Sütun)
For Y = 2 To 9
If Y = 3 Then
VERİ(Y - 1, Sütun) = Format(Cells(X, Y - 1), "dd.mm.yyyy")
ElseIf Y >= 6 Then
VERİ(Y - 1, Sütun) = Format(Cells(X, Y - 1), "#,##0.00")
Else
VERİ(Y - 1, Sütun) = Cells(X, Y - 1)
End If
Next
End If
Next
Liste.Column = VERİ
End Sub