başka sayfalara veri aktarımı

[omermk]

merhaba arkadaşlar,
bu formdan gerçekten çok faydalı bilgiler edindim hem bu siteyi düzenleyenler hemde bu sitede bizlere yardımcı olan arkadaşlar, sizlere çok teşekkür ederiz.
ellerinize yüreğinize sağlık.

bende excel konusunda kendimi geliştirmeye çalışanlardanım. tabi konu dönüp dolaşıp makrolara gelince diğer arkadaşlar gibi bende yol gösteren olmadığı sürece tıkananlardanım.
neyse sorum da en son yazan arkadaşımızla aynı fakat ben birde örnek tablo ekledim. ayın hergünü girdiğim verileri gün sonunda bir butona basarak kümülatif sayfasına aktarmak istiyorum. ayrıca hergüne ayrı değil sadece bir tek sayfa yapıp o sayfayı hergün güncelleyip butona bastığımda toplam sayfasına aktarması da işimi görür.

yardımcı olursanız sevinirim.

 

[ileriexcel]

Sub test()
Set s1 = Sheets("anasayfa")
Set s2 = Sheets("toplam")
s1.Range("a2:l10").Copy
say = WorksheetFunction.CountA(s2.Range("a1:a65000")) + 1
s2.Range("a" & say).PasteSpecial
Application.CutCopyMode = False
End Sub