Son Sütun Numarasını Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub LastCol()
Dim LastCol As Integer
ColRow = ActiveSheet.UsedRange.Columns.Count
MsgBox ColRow
End SubAçıklama
Kodun işlevi, ekranda gördüğünüz alanın boş olması değildir. Yani, siz diyelim ki A1, B1, C1, F1 hücrelerine bir şeyler yazdınız ve sonra yazdıklarınızı temizlediniz. Normalde gözle görünen sütun olmasa da, üzerinde bir kez işlem yapıldığı için artık o sütun 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, sağa oka basarakta teyit edebilirsiniz.Faydalanılması temennisiyle
