Birden Çok Çalışma Sayfası Ekleme

Bu dosya, çalışma kitabına tek seferde birden çok çalışma sayfası eklemeyi sağlayan hazır bir VBA makrosu içerir. Eklenecek sayfa sayısı bir giriş kutusuna yazılır; sayfalar etkin sayfanın hemen arkasına eklenir.

Dosyanın içeriği​

• Sayfa1: Boş çalışma sayfasıdır; makro bu sayfadan çalıştırılabilir.
• Module1: 5 satırlık birden_cok_calisma_sayfasi_ekleme makrosunu barındıran standart modüldür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosyada zararlı bir işlem yoktur; makro yalnızca yeni sayfa ekler, dosya silmez ve dışarıya bağlantı kurmaz.

• birden_cok_calisma_sayfasi_ekleme: InputBox ile "Eklenecek sayfa sayısını girin." mesajlı, "Birden Çok Sayfa Girin" başlıklı bir kutu açar. Girilen değer Integer türünde bir değişkende tutulur. Ardından Sheets.Add yöntemi ile etkin sayfanın arkasına (After:=ActiveSheet) girilen sayı kadar (Count) yeni sayfa eklenir.

Makro, sayı yerine metin girilirse veya kutu iptal edilirse hata verir; bu durumda makro yeniden çalıştırılır ve tam sayı girilir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, birden_cok_calisma_sayfasi_ekleme makrosunu seçip Çalıştır düğmesine basın.
3. Açılan kutuya eklemek istediğiniz sayfa sayısını yazıp Tamam düğmesine tıklayın.
4. Sayfalar etkin sayfanın sağına eklenir.
5. Makroyu başka bir kitapta kullanmak için Alt+F11 ile VBA düzenleyicisini açın, Module1 içindeki kodu o kitaba kopyalayın ve kitabı makro destekli (.xlsm) kaydedin.