İlk ve Son Hücre Arasındaki Satır Sayısı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.
Resimde göreceğiniz şekilde en son yazılı olan 11. satırdaki veri olan XD'dir. 11. satırın en üstünde olan ise 5. satırda yazılı olan ED.
Kod, bu iki satırların toplamını, resimde renklendirilen alandaki hücre sayısı olan 7'yi vermektedir.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub KacSatir()
Dim SonSatir As Integer
SonSatir = ActiveSheet.UsedRange.Rows.Count
MsgBox SonSatir
End Sub
Açıklama
Resimde göreceğiniz şekilde en son yazılı olan 11. satırdaki veri olan XD'dir. 11. satırın en üstünde olan ise 5. satırda yazılı olan ED.
Kod, bu iki satırların toplamını, resimde renklendirilen alandaki hücre sayısı olan 7'yi vermektedir.
Faydalanılması temennisiyle