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.
Sub 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 :
| YARARLI KISAYOLLAR | |
|---|---|
| Makro Penceresini Açma | Alt F8 |
| Ad Yöneticisi Penceresinin Açılması | Alt F X |
| Satır/Sütun/Hücre Ekleme | Ctrl + |
| Bitişik Hücre Aralığı Seçme | Shift Tıklama |
| Hücreyi Araya Çoğaltarak Yerleştirme | Ctrl Shift Sürükle |