filtreleme yapma

[sbugraa]

dosyadaki her satırda bu haftaya ait günleri bulup (yani 19.12.2011 ile 23.12.2011 arası ) onları diğer sayfada alt alta eklemesini istiyorum. (iki sütunda tarih değerleri var o yüzden süz işlemini uygulayamadım) aynı zamanda bir butonla bu haftanın raporunu çıkar dediğimde otomatik olarak haftanın günlerini güncelleyip dediğim bu işlemi yapsın istiyorum.

 

[sbugraa]

Ben aşağıda yazdığım şekilde bi nebze hallettim. Sorunu çözmek için emek harcayan herkese teşekkür ederim. iyi günler.

Private Sub CommandButton1_Click()
Sheets("Aylık Faaliyet Raporu").Range("C6:L160").ClearContents

Dim tarih1 As Date
Dim tarih2 As Date
Dim bul As Range
Dim satır As Integer
Dim s1 As Worksheet
Dim s2 As Worksheet


Set s1 = Worksheets("Rapor")
Set s2 = Worksheets("Aylık Faaliyet Raporu")

tarih1 = Format(TextBox1, "dd.mm.yyyy")
tarih2 = Format(TextBox2, "dd.mm.yyyy")

satır = 5
For Each bul In s1.Range("F6:J650")
If bul >= tarih1 And bul <= tarih2 Then
satır = satır + 1
bul.EntireRow.Copy
s2.Select
Cells(satır, 1).PasteSpecial

End If

Next bul
End Sub