Son Dolu Sütunu Bulmak (End xlToLeft)

Listenin Sağ Sınırını Bulma

Tabloda kaç sütun veri olduğunu dinamik olarak bulup, yeni veriyi hemen sağındaki boş sütuna eklemek için kullanılır.

VBA Kodu:

Sub SonSutun()
    Dim sonSutun As Integer
    sonSutun = Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox "1. satırdaki son veri " & sonSutun & ". sütunda."
End Sub

Ne Göreceksiniz? Yatayda uzayan tablonuzun (örneğin 12. sütun olan L sütunu) sınır numarasını hesaplayıp ekrana yazdırır.