Aktif Sayfayı Kopyalama Yeni Bir Kitaba Yapıştırma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub YeniKitap()
Dim Sh As Worksheet
Set Sh = ActiveSheet
ActiveSheet.Copy
Application.Workbooks.Add
ActiveSheet.Name = "YeniSayfa"
Sh.Range("A1:Z10").Copy Range("A2")
End Sub
Açıklama
Kodların işlevi, önce sayfayı kopyalamak, sonra yeni bir çalışma kitabı açmak, yeni kitabın aktif sayfasına "YeniSayfa " adı vermek ve kopyalanan veriyi yapıştırmak şeklindedir.Faydalanılması temennisiyle
Ekli dosyalar