Dosya içindeki tüm sheet'leri bir yere kopyalama

[epdenli]

Merhaba,

Sizden, bir konuda yardım rica edicem. Farklı sheetlerdeki (Aynı dosya ya da farklı dosya, 2. versiyon olabilir) verileri. Bir sheetin içine alt alta kopyalayacak bir macro yapmak istiyorum.

Benim düşündüğüm, her sheet'in içine gelerek macro çalıştırıldığında "tüm veri" adındaki bir sheetin içine alt alta verileri eklesin. yaklaşık 100 tane sheeti birleştirmem gerekiyor. Başka bir yolu varsa önerilerinizi bekliyorum.

Paylaşımınız için çok teşekkürler
Ayhan

 

[Levent Menteşoğlu]

Her sayfadan kopyalanacak veri aralığını verirmisiniz.

 

[ileriexcel]

sayfalardaki veri aralığını kendinize göre düzenleyiniz.
Sub test()
For i = 2 To Sheets.Count
Sheets(i).Range("a1").Copy
Sheets("veri").Select
say = WorksheetFunction.CountA([a1:a65000])
Range("a" & say + 1).PasteSpecial
Application.CutCopyMode = False
Next
End Sub

 

[epdenli]

Yanıtlarınız için çok teşekkürler, ilgili problemle alakalı başka bi çözüm buldum fakat, istediğiniz kodlar tam olarak istediğimi gerçekleştirmedi? sheetler içinde boş satırlar olduğu için onları saymıyor. Standart olarak 130 satır alacak şekilde, "toplam veri" sheetine tüm verileri (sheet isimleri de sheet1 sheet2 gibi standart değil) diğer sheetlerin üzerine gelerek macroyu çalıştırdığımda kopyalama yapacak çözümü önerirseniz çok sevinirim. Teşekkürler.