Tarih aralığına göre rapor almak

[kmlpyrz]

Ekteki Deneme 1 isimli dosyamın SAYFA 1'indeki tarih aralığına göre, STOK sayfasında süzme yapıp, rapor almak istiyorum. Yardımcı olursanız çok sevinirim.

 

[Mahmut Kök]

Burada konu ili ilgili bilgi ve ornekler mevcut.

 

[Orion1]

Merhaba.
İstediğini ekli dosyadaki gibi olur.
Ekli dosyayı inceleyiniz.
Kodlarda aşağıdadır.

Sub rapor()
Dim ilktarih As Date, sontarih As Date, tarih As Date
Dim sonsat As Long, sat As Long, i As Long, k As Byte
Sheets("Sayfa1").Select
Range("A4:M65536").ClearContents
If Not IsDate(Range("C1").Value) Then
    MsgBox "İlk Tarihe Bir Tarih giriniz.", vbCritical
    Range("C1").Select
    Exit Sub
End If
If Not IsDate(Range("C2").Value) Then
    MsgBox "Son Tarihe Bir Tarih giriniz.", vbCritical
    Range("C2").Select
    Exit Sub
End If
ilktarih = Range("C1").Value
sontarih = Range("C2").Value
sonsat = Sheets("STOK").Cells(65536, "P").End(xlUp).Row
sat = 4
Application.ScreenUpdating = False
For i = 4 To sonsat
If Not IsDate(Sheets("STOK").Cells(i, "P").Value) Then GoTo atla
    tarih = Sheets("STOK").Cells(i, "P").Value
    If tarih >= ilktarih And tarih <= sontarih Then
        For k = 16 To 28
            Cells(sat, k - 15).Value = Sheets("STOK").Cells(i, k).Value
        Next
        sat = sat + 1
End If
atla:
Next
Application.ScreenUpdating = True
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[N.Ziya Hiçdurmaz]

İstediğiniz sütundaki süz özel süz ile iki tarih aralığını girip basitçe bu istediğinizi yapabilirsiniz.