SON 10 SATIRLARIN BAŞKA BİR SAYFAYA KOPYALANMASI

[ceikibin]

BELLİ BİR SAYFANIN SAĞ TARAFINDA KALAN DİĞER TÜM SAYFALARDA, FORMÜLLERE BAĞLI OLARAK BULUNAN SON 10 SATIRIN SONUÇSAYFASINA; ALT ALTA DEĞERLERİNİ KOPYALAMAK İSTİYORUM. BUNU YAPARKEN İLK SUTUNA SAYFA ADINI BİR ŞEKİLDE KOPYALIYABİLİRSE, O SATIRLARDA HANGİ SAYFANIN BİLGİLERİNİN OLDUĞUNU SONRADAN GÖREBİLMEM İÇİN SÜPER OLUR. (SATIR YERLERİ HER SAYFADA FARKLI FAKAT EN ALTTAN 10 SATIR OLDUKLARI SABİT) EKTE ORNEĞİNİ VERMEYE ÇALIŞTIM.
YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER

 

[Levent Menteşoğlu]

Aşağıdaki kodu ekli dosyanıdaki bir boş sayfada çalıştırın.

[vb:1:802d8d35bf]Sub kopyala()
sayfa = Array("sayfa1", "sayfa2", "sayfa3", "sayfa4")
For a = 0 To 3
Set s1 = Sheets(sayfa(a))
son = s1.[a65536].End(3).Row
ilk = son - 9
s1.Range("a" & ilk & ":bk" & son).Copy
sonsat = [b65536].End(3).Row + 1
Cells(sonsat, "b").PasteSpecial Paste:=xlPasteValues
Range("a" & sonsat & ":a" & sonsat + 9).Merge
Range("a" & sonsat) = sayfa(a)
Range("a" & sonsat).VerticalAlignment = xlCenter
Range("a" & sonsat).HorizontalAlignment = xlCenter
Range("a" & sonsat).Orientation = 90
Next
Application.CutCopyMode = False
[a1].Select
End Sub[/vb:1:802d8d35bf]

 

[ceikibin]

ÇOK TEŞEKKÜR EDERİM. TAM İSTEDİĞİM GİBİ ÇALIŞIYOR. AYRICA SAYFALARIN ADEDİNİ ÇOĞALTARAK DA KULLANMAYI BAŞARDIM.