Birden Çok Satır Ekleme

13 Aralık 2016 14 Ekim 2021 786

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

Sub CokluSatirEkle()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox("Eklenecek satır sayısını yazın", "Satır Ekle")
For j = 1 To i
    Selection.Insert Shift:=xlToDown, 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
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Birden Çok Satır Ekleme
Yorumları Yazdırma
Aktif Çalışma Sayfasını Koruma
Tüm Çalışma Sayfalarını Gösterme
Seçimi Yazdırma
56 Renk Kodunu Sıralama
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
UserForm Üzerinde Dört İşlem
Bilgisayardaki Sürücü Sayısını Bulma
Kapanış Mesajı Ekleme
Son Sütun Numarasını Bulma
Yanlış Yazılmış Hücreleri Vurgulama
Satırları Otomatik Sığdır
Makro ile Dosya Açma
Sayfada Alan Seçme ve Listeleme
Çalışma Sayfasının Ekran Görünümünü Büyütme
Tüm Satırları ve Sütunları Gösterme
Tek Sütunu Kes Kopyala ve Yapıştır
Aktif Hücreye Açıklama Ekleme
Açık Excel Kitaplarını Yerleştirme
Excel Makroları ile Klasör Arama
Makrolar ile Eliptik Form Oluşturma
Excel Dosya Silme İşlemi Makrosu
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Dolar Okutma Makrosu
Excel ile Faiz Hesaplama Kodu
Excel Makroları ile Hücreye Saat Ekleme
Klavyeye Makro Atama ve Çalıştırma
Dizinde Klasör Araması Yapma
Txt Dosyası Oluşturma
Makro ile Hızlı Doldurma
Makro ile Biçimleri Temizleme
Gizli Sayfaların Bulunması ve Gösterilmesi
Transparan UserForm Oluşturmak
Makro ile Klasör Açma
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
TextBox Nesnesine Harf Girilmesini Engelleme
UserForm Açılırken Efekt Ekleme
Son Satır Numarasını Bulma
Kopyala ve Özel Yapıştır
Excel Tam Ekran Yapma
Excel Seçenekleri Penceresini Açma
Sayılara Yeni Bir Sayı Ekleme
Birden Çok Çalışma Sayfası Ekleme
Belirli Bir Metne Sahip Hücreleri Vurgulama
Makrolar ile Txt Dosya Silme
Makrolar ile Txt Dosyası Oluşturma
Verileri Birden Çok Sütuna Göre Sıralama
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme

Daha önce yorum yapılmamış!

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