verileri iki tarih arasına göre yazdırma

[metin80]

ekteki excelin rapor sayfasındaki tek tarihe göre raporlama alıyor .raporlamayı 2 tarih arası olarak nasıl yapabilirim.mesala 18/09/2013 ile 21/09/2013 arası.fakat yazılan tarihler dahil olacak şekilde. 18/19/20/21 günleri alacak şekilde

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

 

[ZorBey_]

Merhaba İyi Çalışmalar
Dosyanız Ektedir.

 

[metin80]

çok teşekkür ederim.
şöyle bir sorun var raporlamada bu sefer kasada yapılan banka çıkış işlemi rapor sayfasında girişte ve çıkışta gözüküyor

 

[ZorBey_]

İki Tarih Arası Kasa Girişleri Bir Bölümde
İki Tarih Arası Kasa Çıkışlar Bir Bölümde
Olsa Olmazmı
Şimdi iki Tarih Arası Ne Bulursa Getiriyor
Şöyle Olsa olurmu
İki Tarih Arası Kasaya Girenleri Getirsin - Yani İki Tarih Arası Bir Seçenek Oluyor
Diğer Bölümde
İki Tarih Arası Kasadan Çıkanları Getirsin

 

[metin80]

banka işlemleri kısmına yazılan değer sadece çıkış olarak yazılmışsa çıkış tarafına giriş yazılmışsa giriş tarafına yazması gerekmekte.giriş olarak yapılmayan hareketler çıkış tarafında gözükmemesi.çıkış hareketlerinde giriş tarafında görünmemesi gerekmekte.

bu şekilde olunca hepsi iç içe girmiş gibi göründü

 

[halit3]

Alternatif kod:

Sub aktar2()

Dim i As Long
Dim baslangıc, bitis, deg1, deg2, yer1, yer2, bulunan1
baslangıc = Sheets("Rapor").Cells(2, "c").Value
bitis = Sheets("Rapor").Cells(2, "d").Value


If IsDate(baslangıc) <> True Then Exit Sub
If IsDate(bitis) <> True Then Exit Sub

deg1 = CDate(baslangıc)
deg2 = CDate(bitis)

If deg1 <= deg2 Then
yer1 = CDate(baslangıc)
yer2 = CDate(bitis)
Else
yer2 = CDate(baslangıc)
yer1 = CDate(bitis)
End If

sat1 = 7
sat2 = 7
Worksheets("Rapor").Range("B7:D28").ClearContents
Worksheets("Rapor").Range("G7:I28").ClearContents

For i = 6 To Worksheets("KASA HAREKET").Cells(Rows.Count, "A").End(xlUp).Row
bulunan1 = Worksheets("KASA HAREKET").Cells(i, "A").Value

If CDate(yer1) <= CDate(bulunan1) _
And CDate(yer2) >= CDate(bulunan1) Then

If Worksheets("KASA HAREKET").Cells(i, "c").Value = "KASAYA GİREN" Then
If Worksheets("KASA HAREKET").Cells(i, "f").Value > 0 Or Worksheets("KASA HAREKET").Cells(i, "d").Value > 0 Then
Worksheets("Rapor").Cells(sat1, "b").Value = Worksheets("KASA HAREKET").Cells(i, "b").Value
Worksheets("Rapor").Cells(sat1, "c").Value = Worksheets("KASA HAREKET").Cells(i, "c").Value
Worksheets("Rapor").Cells(sat1, "d").Value = Worksheets("KASA HAREKET").Cells(i, "f").Value
Worksheets("Rapor").Cells(sat1, "c").Value = Worksheets("KASA HAREKET").Cells(i, "d").Value
sat1 = sat1 + 1
End If
End If




If Worksheets("KASA HAREKET").Cells(i, "c").Value = "KASADAN ÇIKAN" Then
If Worksheets("KASA HAREKET").Cells(i, "e").Value > 0 Or Worksheets("KASA HAREKET").Cells(i, "d").Value > 0 Then
Worksheets("Rapor").Cells(sat2, "g").Value = Worksheets("KASA HAREKET").Cells(i, "b").Value
Worksheets("Rapor").Cells(sat2, "h").Value = Worksheets("KASA HAREKET").Cells(i, "c").Value
Worksheets("Rapor").Cells(sat2, "ı").Value = Worksheets("KASA HAREKET").Cells(i, "e").Value
Worksheets("Rapor").Cells(sat2, "h").Value = Worksheets("KASA HAREKET").Cells(i, "d").Value
sat2 = sat2 + 1
End If
End If

End If

If sat1 = 28 Then Exit Sub
If sat2 = 28 Then Exit Sub

Next
MsgBox "işlem tamam"
End Sub

 

[ZorBey_]

Ekli Dosyayı İncelermisiniz

 

[metin80]

teşekkürler ilginiz için
sanırım kod ile net bir şekilde bu işi çözdük.emeğinize sağlık