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 İsteSub LastRow()
Dim LastRow As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
MsgBox LastRow
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- 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.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Ü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
Daha önce yorum yapılmamış!
| YARARLI KISAYOLLAR | |
|---|---|
| Koyu Yazdırma | Ctrl K |
| Yeni Sayfada Grafik Oluşturma | F11 |
| Bir sonraki sonucu bulma | Shift F4 |
| Özel Git Penceresini Açma | F5 |
| Bir Hücre Sola Git | ← |
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.
Aynı işlemi tekrar ileri almak isterseniz, üstteki resmin hemen yanında yer alan İleri Al simgesi işinizi görecektir.
