Son Satır Numarasını Bulma

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.

XD Destek İste
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.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Hoş Geldiniz Mesajı Ekleme
Gizlenmiş Makro Örnekleri
Formül Bulunan Hücreleri Koruma ve Kilitleme
Çalışma Kitabının Yedeğini Oluşturma
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Başka Dosyada Şifreli Userform Oluşturmak
Bir Aralıktaki Minimum Değeri Renklendirme
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
R1C1 Referans Stilini Etkinleştirme
Hatalı Hücreleri Renklendirme
Boşluk Olan Hücreleri Renklendirme
Grafik Türünü Değiştirme
Kapanış Mesajı Ekleme
Google Üzerinde Arama Yapma
Excel Alarm Kurma
Excel Üzerinden Klasör Alma Kodu
Tüm Formülleri Değerlere Dönüştürme
Açıklama İçeren Tüm Hücreleri Vurgulama
TextBox Nesnelerinin Arasında Boşluk Bırakma
Küp Kökünü Hesaplama
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
A1 Referans Stilini Etkinleştirme
Excel Makroları ile Dosya Sayısını Bulma
Aktif Çalışma Sayfasını Koruma
Makro ile Hızlı Doldurma
Boş Hücreleri Sıfırlarla Değiştirme
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
İçindekiler Tablosu Oluşturma
Sayıyı Çift ya da Çiftin Katı Yapma
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Excel Makroları ile İşlemci Bilgilerini Bulma
Excel Makroları ile Dosya Taşıma
Sağ Tık ile Açılan Menüye Ekleme Yapma
Hücre Aralığını Kes Kopyala ve Yapıştır
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Top 10 Değeri Renklendirme
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Transparan UserForm Oluşturmak
Çift Satırlı Msgbox Örneği
Seçimi Yazdırma
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Aralıklı Olarak Satır Silme
Hücredeki Değişikliklerin Kaydını Tutma
Excel Makro ile Hücreye Veri Yazma
2. Derece Denklemin Grafiğini Çizmek
Seçili Her Satırdan Sonra Bir Satır Ekleme
Aktif Çalışma Sayfası Korumasını Kaldırma
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Derece Simgesi Ekleme
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Excel'de hatalı birşeyler mi yaptınız? Hemen panik olmayın, bunun kolay bir yöntemi var:
Kısayol kullanarak Ctrl + Z tuşlarına birden basarak geri almak işlemini yapabilirsiniz ya da Excel Şerit Menü'nün üstünde ya da altında yer alan Hızlı Erişim Araç çubuğundaki Geri Al simgesini kulllanabilirsiniz.

geri al

Aynı işlemi tekrar ileri almak isterseniz, üstteki resmin hemen yanında yer alan İleri Al simgesi işinizi görecektir.

ileri al
Yükleniyor...