çalışma kitabındaki sayfaları bir sayfaya nasıl aktarırız

[ismailyasar]

çalışma kitabındaki sayfaları bir sayfaya nasıl aktarırız yardım ederseniz sevinirim.

 

[jeuness]

Taşımak istediğin sayfa ismine sağ tıkla taşı veya kopyala seçeneğini seç sonra açık olan excel çalışma sayfaları çıkacak üstte. ordan hangi kitabın hangi sayfasına istiyorsan taşıyabilirsin. Yalnız aşağıda kopya oluştur seçeneğini öneririm. Aslı kalır kopya taşır. Garanti olur yani. Umarım yardımı olur

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim SON, I As Long
Sheets("Sayfa1").[A1:I5000].Clear
For I = 2 To Sheets.Count
Sheets(I).[A1].CurrentRegion.Copy
SON = Sheets("Sayfa1").Cells(65536, "A").End(3).Row
Sheets("Sayfa1").Cells(SON, "A").PasteSpecial
Next
End Sub