Tahsilat Ödeme

[asbay]

Ekte kendi yaptığım tahsilat ödeme çalışmasının basit bir şekli var. Ancak Excelde makrolar konusunda oldukça gerideyim. İki ayrı sayfada bulunan verilerin tek sayfada tarih bazında buluşturulup değerlendirilmesini yapmak istiyorum.
Teşekkürler

 

[ileriexcel]

Sub raporla_odeme()
Set s = Sheets("SONUC")
Set o = Sheets("ÖDEME")
o.Select
For Each bak In o.Range("a2:a100")
If Date = bak.Value Then
bak.Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Selection.Copy
say = WorksheetFunction.CountA(s.Range("a1:a65000"))
s.Range("a" & say + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
s.Select
End Sub
'*******************************
Sub raporla_tahsilat()
Set s = Sheets("SONUC")
Set o = Sheets("TAHSİLAT")
o.Select
For Each bak In o.Range("a2:a100")
If Date = bak.Value Then
bak.Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Selection.Copy
say = WorksheetFunction.CountA(s.Range("d1:d65000"))
s.Range("d" & say + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
s.Select
End Sub

 

[asbay]

ilginize teşekkürler... ben tam olarak açıklayamadım sanırım. bu yüzden biraz daha üzerinde çalışıp sizden tekrar fikir alacağım.
en başta iki sayfa vardır. tahsilat ve ödeme
sistem önce tahsilatları ve ödemeleri ayrı tablolarda tarihe göre sıralar(eğer sıralı değilse)
2. aşamada aynı tarihteki tahsilat ve ödemeleri yanyana yazar ve toplamlarını alır.-süz aynı tarihleri bul kopyala yapıştır yapılabilir.- (bu yazılan tablo sabit aralıklarla örneğin 20 satırlık aralıklarla olabilir veya satır sayılarını denetleyip hangisi uzunsa toplamı bunu bittiği yerdeki satıra alabilir.)

vba çalışma sistemini bilmediğim için başlayamıyorum.

iyi çalışmalar