Makro ile Birden Fazla Satır Ekleme

Bu dosya, çalışma sayfasında seçili olan satırın yerine tek işlemle birden fazla boş satır eklemek için hazırlanmış bir makro örneğidir. Eklenecek satır sayısı açılan bir giriş kutusuna yazılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.

Dosyanın içeriği​

• Sayfa1: B3:F3 aralığında başlık satırı bulunur. Satır ekleme makrosu bu sayfada çalıştırılmak üzere hazırlanmıştır.
• Module1: BirdenFazlaSatırEkle adlı makroyu barındıran VBA modülüdür.

Makrolar​

BirdenFazlaSatırEkle makrosu şu adımlarla çalışır:

1. Aktif hücrenin bulunduğu satırın tamamını seçer.
2. Bir InputBox açar ve "Eklenecek satır sayısını girin" mesajıyla kaç satır ekleneceğini sorar.
3. Girilen sayı kadar döngü kurar ve her turda seçili satırın yerine bir satır ekler; mevcut satırlar aşağı kayar. Biçim, üstteki satırdan alınır (xlFormatFromRightorAbove).
4. Giriş kutusu iptal edilirse veya sayı dışında bir değer girilirse On Error ile hata yakalanır ve makro herhangi bir işlem yapmadan sonlanır.

Kodda dosya silme veya dışarıya bağlantı gibi işlemler yoktur; makro yalnızca satır ekler.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Yeni satırların ekleneceği konumdaki herhangi bir hücreyi seçin.
3. Makroyu Alt+F8 ile açılan pencereden veya sayfaya atanmış bir düğme üzerinden çalıştırın.
4. Açılan kutuya eklenecek satır sayısını yazıp Tamam düğmesine basın.
5. Seçili satırın bulunduğu yere girilen sayı kadar boş satır eklenir.

Makroyu kendi dosyanızda kullanmak için VBA düzenleyicisinde (Alt+F11) Module1 içindeki kodu kopyalayıp kendi çalışma kitabınıza ekleyebilirsiniz.