VBA ile bir tarihte yapılan alış ve satışları rapor sayfasında tek bir tabloda göstermek istiyorum.

[muhtar1978]

Örnekteki gibi bir tabloda alış ve satışları bir tarihe göre süzüp, diğer sayfadaki tabloda alt alta yazdırmaya çalışıyorum, iki ayrı döngü ile tarihe göre alışları ve satışları buluyorum fakat rapor sayfasındaki tabloya bir türlü geçiremedim. Yardımlarınız için şimdiden teşekkürler.

örnek.xlsx - 16 KB

https://dosya.co/w324rrrxz2yc/örnek.xlsx.html

 

[muhtar1978]

Sub gunluk_islemler()

bugun = Date
bossatir = Sayfa1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

For Each hucre In Sayfa2.Range("A3:J319")
If hucre.Value = bugun And hucre.Column = 2 Then
hucre.Offset(0, -1).Copy Sayfa1.Cells(bossatir, 2)
Sayfa1.Cells(bossatir, 3) = "ALIŞ"
hucre.Offset(0, 1).Copy Sayfa1.Cells(bossatir, 4)
hucre.Offset(0, 2).Copy Sayfa1.Cells(bossatir, 5)

End If
Next hucre

For Each hucre In Sayfa2.Range("A3:J319")
If hucre.Value = bugun And hucre.Column = 6 Then
hucre.Offset(0, -5).Copy Sayfa1.Cells(bossatir, 2)
Sayfa1.Cells(bossatir, 3) = "SATIŞ"
hucre.Offset(0, 2).Copy Sayfa1.Cells(bossatir, 4)
hucre.Offset(0, 1).Copy Sayfa1.Cells(bossatir, 5)

End If
Next hucre

End Sub



Bu aşamaya kadar gelebildim. rapor alırken satışlar alt alta kopyalanıyor ama alışlar görünmüyor, muhtemelen ikinci döngü birincinin üstüne kopyalıyor, çözüm nedir? Yardımlarınız için şimdiden teşekkür ederim.