Son Satırı Bulma

Son Satırı Bulma

Son Satırı Bulma içeriğinde, bu işleminin hızlı bir şekilde yapılmasını sağlayan hazır makro kodları yer almaktadır.

Satırların Bulunması​

Kod: 
Sub LastRow()

Dim LastRow As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
MsgBox LastRow

End Sub

Uygulama Adımları​

[*]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. [*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın. [*]Üstteki kodu yapıştırın.
 
Son Sütunu Bulma
Son Sütunu Bulma
Her Sütundaki Maksimum Değeri Bulma
Her Sütundaki Maksimum Değeri Bulma
Genişletmek için tıklayın ...
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst