Son Satır Numarasını Bulma

27 Aralık 2020 30 Mart 2021 1278

Son Satır Numarasını Bulma isimli kod ile, Excel sayfasındaki kullanılan satırlardan son olanın numarasını bulma işlevi yapılmaktadır.

Sub LastRow()
    Dim LastRow As Integer
    LastRow = ActiveSheet.UsedRange.Rows.Count
    MsgBox LastRow
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.

Kod Açıklaması

Kodun işlevi, ekranda gördüğünüz alanın boş olması değildir. Yani, siz diyelim ki A1, A2, A3, A6 hücrelerine bir şeyler yazdınız ve sonra yazdıklarınızı temizlediniz. Normalde gözle görünen satır olmasa da, üzerinde bir kez işlem yapıldığı için artık o satır kullanılmış sayılacaktır.

Kod bu durumda 6 sonucunu döndürecektir.

Bu anlatımın doğruluğunu, Ctrl ve Shift tuşlarını basılı tutup, aşağı oka basarakta teyit edebilirsiniz. Aynı işlemin formüller kullanılarak nasıl bulunacağını öğrenmek isterseniz, Formülle Son Satır Numarasını Bulma isimli dosyamızı indirebilirsiniz.

50 Farklı Hazır Makro (VBA) Kodu
Hatalı Hücreleri Renklendirme
UserForm Nesnesine Otomatik Buton Ekleme
Excel Makroları ile Hücreye Saat Ekleme
Sürücü Seri Numarasını Gösterme
Sütunlardaki Farkı Renklendirme
TextBox Nesnesinde Kuruş Göstermek
Metin Sarmayı Kaldırma
Belirli Kriterlere Sahip Satırları Silme
Boş Hücreleri Vurgulama
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Gizli Sayfaların Bulunması ve Gösterilmesi
Excel Makroları ile Klasör Arama
Satır Yüksekliğini Ayarla
Aktif Sütuna Göre Diğer Sütunda İşlem
Seçili Alandan İstenilen Karakteri Kaldırma
Makro ile Biçimleri Temizleme
Klasörde Dosya Araması Yapma
Kilitlenmemiş Hücreleri Seçme İşlemi
Giriş Kutusu ve Mesaj Yazma İşlemi
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Makrolar ile Klasördeki Dosyayı Taşıma
Tek Sütunu Kes Kopyala ve Yapıştır
Şarta Göre Satır Açma ve Renklendirme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Select Case Kullanımı
Satırları Otomatik Sığdır
Belirli Bir Metne Sahip Hücreleri Vurgulama
Başka Dosyada Şifreli Userform Oluşturmak
Makrolar ile Klasör Oluşturma
Hücre Aralığını Kes Kopyala ve Yapıştır
Hedef Aramayı Kullanma
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Çalışma Kitabını E-Posta Ekine Ekleme
İçindekiler Tablosu Oluşturma
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Makrolar ile Sonraki Sayfaya Geçmek
Excel Satır Silme Kodu
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Belli Sütunlarda Alfabetik Sıralama
Excel Makroları ile Dosya Sayısını Bulma
Yorumları Yazdırma
Aktif Hücrenin Temel Bilgilerini Bulma
Çalışma Sayfasının Ekran Görünümünü Büyütme
Sayıları Yeni Bir Sayıyla Çarpma
Dizileri İç İçe Döngüye Eklemek
56 Koşula Kadar Biçimlendirme Yapma
Excel Alarm Kurma
Hücredeki Değere Göre Yeni Sayfa Ekleme
Seçili Hücrenin Sütun Harfini Bulma

Daha önce yorum yapılmamış!

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