Tarih aralığında liste almak

[drejan62]

Merhaba arkadaşlar,
Ekteki dosyada "Tüm" sayfasında verilerim var. Bu verilerin satır sayısı değişken.
Yapmak istediğim yazılacak bir makro ile iki tarih dilimi arasındaki verilere ait satırları "özet" sayfasına aktarmak.
Örneğimizde 25.05.2010 (dahil) ile 01.09.2010 (dahil) tarihleri arasındaki verileri "özet" sayfasına aktarmak.
Teşekkür ederim şimdiden.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Dosyanız ektedir.

Kod: [Seç]

Sub suz_aktar_59()
Sheets("Tüm").Select
If Not IsDate(Range("B2").Value) Then
    MsgBox "İlk tarih yanlış girilmiş.", vbCritical, "UYARI"
    Range("B2").Select
    Exit Sub
End If
If Not IsDate(Range("B3").Value) Then
    MsgBox "İlk tarih yanlış girilmiş.", vbCritical, "UYARI"
    Range("B3").Select
    Exit Sub
End If
Sheets("özet").Range("A1:AA65536").ClearContents
Application.ScreenUpdating = False
Range("A7").AutoFilter
Range("A7").AutoFilter field:=18, Criteria1:=">=" & CLng(Range("B2").Value), _
Operator:=xlAnd, Criteria2:="<=" & CLng(Range("B3").Value)
Range("A7").CurrentRegion.Copy Sheets("özet").Range("A7")
Range("A7").AutoFilter
Sheets("özet").Select
Application.ScreenUpdating = True
MsgBox "Filtre çıkarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[drejan62]

Evren Üstad
Teşekkürler, çok sağolun.
Süper olmuş. 

[Orion1]

Evren Üstad
Teşekkürler, çok sağolun.
Süper olmuş. 

Rica ederim.
İyi çalışmalar.

[assenucler]

Sayın Evren Gizlen;

Günaydın..

Arşivime ekliyorum. Katkılarınız için kendi adıma teşekkürler..