Makro ile Birden Fazla Sütun Ekleme

Bu dosya, çalışma sayfasına tek seferde birden fazla sütun eklemeyi sağlayan bir VBA makrosu içerir. Sütunlar tek tek eklenmez; kullanıcının girdiği sayı kadar sütun aktif sütunun soluna eklenir.

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

Dosyanın içeriği​

• Sayfa1: Makroyu çalıştıran buton bu sayfadadır. Sayfada formül, tablo veya grafik bulunmaz.
• Module1: BirdenFazlaSütunEkle adlı makro prosedürünü içeren VBA modülüdür.

Makrolar​

BirdenFazlaSütunEkle makrosu şu sırayla çalışır:

1. Aktif hücrenin bulunduğu sütunun tamamı seçilir.
2. Ekrana "Sütun Ekle" başlıklı bir InputBox açılır ve eklenecek sütun sayısı sorulur.
3. Girilen sayı kadar döngü çalışır; her turda seçili sütun için Insert komutu sağa kaydırma (xlToRight) ile uygulanır. Böylece yeni sütunlar aktif sütunun soluna açılır, mevcut sütunlar sağa kayar.
4. Biçim, sağdaki veya üstteki hücrelerden alınır (xlFormatFromRightorAbove).

Makroda hata yakalama bulunur: InputBox iptal edilirse ya da sayı yerine geçersiz bir değer girilirse işlem yapılmadan makro sonlanır. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Yeni sütunların açılmasını istediğiniz sütunda bir hücreyi seçin.
3. Sayfa1 üzerindeki butona tıklayın.
4. Açılan kutuya eklenecek sütun sayısını yazıp Tamam'a basın.

Makroyu kendi dosyanıza taşımak için Alt+F11 ile VBA düzenleyicisini açıp Module1 içindeki kodu kendi çalışma kitabınıza kopyalayabilir, ardından bir butona veya kısayol tuşuna atayabilirsiniz.