Birden Çok Sütun Ekleme

17 Mart 2017 14 Ekim 2021 520

Bu kod ile Birden Çok Sütun Ekleme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.

Sub CokluSutunEkle()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireColumn.Select
On Error GoTo Last
i = InputBox("Eklenecek sütun sayısını yazın", "Sütun Ekle")
For j = 1 To i
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.
50 Farklı Hazır Makro (VBA) Kodu
Checkbox ile Exceli Kapatıp Açmak
TextBox Nesnesinde Kuruş Göstermek
Metinden Konuşma Oluşturma
Makrolar ile Eliptik Form Oluşturma
UserForm Üzerinde Dört İşlem
Küp Kökünü Hesaplama
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Bilgisayar Bilgilerini Özetleme
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Kopyala ve Değer Olarak Yapıştır
Aktif Satırı ve Sütunu Vurgulama
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Seçili Her Satırdan Sonra Bir Satır Ekleme
Makro ile Açılan Liste Oluşturma
Boş Hücrelerin Görünmez Alanını Vurgulama
Disk Sürücü Kapasitesini Gösterme
Bir Aralıktaki Maksimum Değeri Renklendirme
Tüm Satırları ve Sütunları Gösterme
Sayfadaki Grafikleri Yeniden Boyutlandırma
Çift Satırlı Msgbox Örneği
Kopyala ve Özel Yapıştır
Excel Makroları ile Dosya Sayısını Bulma
Başka Dosyada Şifreli Userform Oluşturmak
Cümle Durumuna Dönüştürme
Pivot Tablo Alt Toplamlarını Gizleme
Label Nesnesine Kayan Yazı Ekleme
Boşluk Olan Hücreleri Renklendirme
Bir Hücreye Çift Tıklayınca UserForm Açılsın
56 Koşula Kadar Biçimlendirme Yapma
Aktif Hücrenin Sütun Numarasını Bulma
Sütunu Kes Kopyala ve Yapıştır
Formül Bulunan Hücreleri Koruma ve Kilitleme
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Bilgisayardaki Sürücü Sayısını Bulma
Negatif Sayıları Poztif Sayıya Çevirme
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Tekrarlayan Verileri Vurgulama
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Program Başlangıcı Kodları
Aktif Sütuna Göre Diğer Sütunda İşlem
Yorumları Yazdırma
TextBox Nesnesine Harf Girilmesini Engelleme
Boş Hücreleri Sıfırlarla Değiştirme
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Excel Makroları ile Klasör Arama
Roma Rakamlarını Normal Sayılara Dönüştürme
Sütunlardaki Farkı Renklendirme
Otomatik Olarak Tarih ve Zaman Ekleme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...