Tarihler arası süzgeç (ayrı sayfaya)

[nane]

Merhabalar,

Aslında buna benzer olarak tarihe göre süzmek istiyorum. A1 süzülecek başlangıç tarih 05.10.2011, B1 ise bitiş tarihi 25.10.2011 yazdığımda makro ile, kayıtlar ise A5 hücresinde tarihler 01.01.2011 den başlıyor ve A350 ye kadar devam ediyor. Son tarih ise 03.11.2011
Yani ara tarih süzdürmek istiyorum. Eger diğer sayfaya (sayfa2) olursa daha iyi olur.
Bir türlü yapamadım. Süzgeç tarihleri her seferinde farklı başlangıç ve bitiş tarihlerini içermektedir.
İlginiz için teşekkürler
Yb

 

[İhsan Tank]

Merhaba
Dosya ekler misiz_?

 

[nane]

İhsan bey dosya nasıl ekliyorduk ekleyemedim.

Teşekkürler

 

[İhsan Tank]

İhsan bey dosya nasıl ekliyorduk ekleyemedim.

Teşekkürler

Merhaba
Tıklayın lütfen

 

[nane]

Merhabalar,
Dosya ektedir. Sayfa2 de başlanğıç ve bitiş tarihleri arasındaki işlemlerin gelmesini istiyorum.

İlginize teşekkürler
Yb

 

[İhsan Tank]

Merhabalar,
Dosya ektedir. Sayfa2 de başlanğıç ve bitiş tarihleri arasındaki işlemlerin gelmesini istiyorum.

İlginize teşekkürler
Yb

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub iki_tarih_arası_aktar_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi
Set bordo = Sheets("GÜNCEL LİSTE")
Set mavi = Sheets("Sayfa2")
If mavi.Range("A1") = Empty And mavi.Range("B1") <> Empty Then
MsgBox "A1 Hücresine Tarih Yazınız", vbCritical, "Hata"
mavi.Select
mavi.Range("A1").Select
Exit Sub
ElseIf mavi.Range("A1") <> Empty And mavi.Range("B1") = Empty Then
MsgBox "B1 Hücresine Tarih Yazınız", vbCritical, "Hata"
mavi.Select
mavi.Range("B1").Select
Exit Sub
End If
trabzonspor = MsgBox(CDate(mavi.Range("A1")) & " İle" & vbLf _
& CDate(mavi.Range("B1")) & " Arasındaki" & vbLf _
& "Verileri Aktarayım Mı_?", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
mavi.Range("A5:F" & Rows.Count).ClearContents
kaplan = 5
For ts = 5 To bordo.Cells(Rows.Count, "A").End(xlUp).Row
If bordo.Cells(ts, "A") >= mavi.Range("A1") And _
bordo.Cells(ts, "A") <= mavi.Range("B1") Then
bordo.Rows(ts).Copy Destination:=mavi.Range("A" & kaplan)
kaplan = kaplan + 1
End If
Next
mavi.Range("G:H").ClearContents
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & " Sürede" & vbLf _
& CDate(mavi.Range("A1")) & " İle" & vbLf _
& CDate(mavi.Range("B1")) & " Arasındaki" & vbLf _
& "Verileri Aktardım", , "Bitiş"
End Sub

 

[nane]

İhsan bey, ellerinize sağlık çok iyi olmuş birde kim aldı veya plaka no ya göre de süzebilir mi?

Yani bir tür cari ekstre gibi olacak o zaman

Teşekkürler
Yb

 

[İhsan Tank]

İhsan bey, ellerinize sağlık çok iyi olmuş birde kim aldı veya plaka no ya göre de süzebilir mi?

Yani bir tür cari ekstre gibi olacak o zaman

Teşekkürler
Yb

Ben taksidimi ödedim. Kusura bakmayın

 

[nane]

Yardımınız için teşekkürler

Yb

 

[İhsan Tank]

Yardımınız için teşekkürler

Yb

Rica ederim
:keyif:

 

[gkocsoy]

Harika olmuş. Çok teşekkürler...