Otomatik Sayfa Oluşturma içeriğinde, istenen sayıda Excel Çalışma Sayfası oluşturmayı sağlayan hazır makro kodları yer almaktadır.
Makrolar ile Hızlıca Sayfa Oluşturma
Sub SayfaOlustur()
Dim i As Integer, Adet As Integer
Adet = Application.InputBox("Oluşturmak İstediğiniz sayfa sayısınız yazın!", "Sayfa Oluşturma")
For i = 1 To Adet
Sheets.Add
Next i
End Sub
Açıklama
Bazen, Excel‘de birden fazla sayfa oluşturmak için oldukça hızlı hareket etmeye ihtiyaç duyulmaktadır. Tek tek yüzlerce sayfa oluşturmanın ise, oldukça zahmetli bir işlem olduğu bilinmektedir. Böyle bir durumda, referans ve yarar sağlamak adına üstteki makro kodları kolayca kullanılmaktadır.
Kod çalıştırıldığında, önce ekrana bir InputBox penceresi gelmektedir. Bu pencerede kaç adet sayfa oluşturulmasına cevap verilmesi istenmektedir.
Verilen cevaba istinaden, yazılan sayıdal değer kadar sayfa hızlıca oluşturulmaktadır.
Benzer şekilde bir ihtiyacın olması halinde, üstteki kodlar ile istenen sonuçlar elde edilmektedir. Otomatik Sayfa Oluşturma isimli içeriğimizdeki hazır makro kodlarından yararlanılması temennisiyle.