Çizelgedeki en son dolu satırı bulmak

[ynmcan]

Merhaba arkadaşlar;
( Z5:AK104 ) aralığındaki son dolu satırı makro ile nasıl bulurum.
Örnek dosyam ekte.

 

[Ömer BARAN]

Merhaba, aşağıdaki konu sayfasında Sayın Korhan AYHAN'ın 4 numaralı cevabına bakınız.
Kod'daki sütun numarasını; 26 To 37 olarak değiştiriniz.

Dolu olan en alt satırı bulmak

 

[Orion1]

Buyurun.

Sub sonhucre59()
Dim hcr As Range, hucre As Range
For Each hcr In Range("Z5:AK104")
    If hcr.Value <> Empty Then Set hucre = hcr
Next
hucre.Select
MsgBox "Son dolu hücre = " & hucre.Address
End Sub