Son Sütunu Bulma

Son Sütunu Bulma

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

Sütunların Bulunması​

Kod: 
Sub LastCol()

Dim LastCol As Integer
ColRow = ActiveSheet.UsedRange.Col.Count
MsgBox ColRow

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 Satırdan Sonra Bir Şeyler Yazma
Son Satırdan Sonra Bir Şeyler Yazma
Son Satırı Bulma
Son Satırı 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