Bu derste, önceden hazırladığınız (renkli, biçimlendirilmiş) bir şablon sayfasını tek bir düğmeyle çoğaltmayı göstereceğiz.
Basit Yöntem: Boş Yeni Sayfa Eklemek
Sub SayfaEkle()
Sheets.Add
End Sub
Bu, tamamen boş, biçimlendirilmemiş bir sayfa ekler.
Daha Kullanışlı Yöntem: Var Olan Bir Şablonu Kopyalamak
Genelde tamamen boş bir sayfa değil, önceden hazırladığınız biçimlendirilmiş bir şablonun kopyasını istersiniz:
Sub SablonKopyala()
Sheets("Sablon").Copy After:=Sheets(Sheets.Count)
End Sub
.Copy After:=Sheets(Sheets.Count), "Sablon" adlı sayfayı, mevcut sayfaların en sonuna (tüm biçimlendirmesiyle birlikte) kopyalar.
Kopyalanan Sayfayı Yeniden Adlandırmak
Excel, kopyalanan sayfaya otomatik olarak "Sablon (2)" gibi bir isim verir — bunu kendi mantığınızla değiştirebilirsiniz:
Sub SablonKopyalaVeAdlandir()
Sheets("Sablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Kayit " & (Sheets.Count - 1)
End Sub
ActiveSheet, az önce kopyalanan (ve otomatik olarak aktif hale gelen) sayfayı temsil eder — .Name ile bu sayfaya istediğiniz ismi verebilirsiniz.
Sırada Ne Var?
Sırada, çalışma sayfalarınızı ve VBA projenizi bir şifreyle koruma altına almayı göreceğiz.