Son Hücre Adresi

[tuvons]

Merhaba,

Aşağıdaki kod ile sayfadaki son hücrenin adresini alıyorum fakat sayfa açıldığında 10 satır veri varsa sonra 3 satırını silip yine son hücreyi bulmaya çalışsam bile onuncu hücreyi gösteriyor. Dosyayı kaydet yapmadan bunu değiştirmenin bir yolu var mıdır?

son = ActiveCell.SpecialCells(xlLastCell).Address

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub DipKöse()
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
MsgBox "DipKöşe " & Cells(LastRow, LastColumn).Address & " Hücresi"
Else
MsgBox "Hiç değer yok "
End If
End Sub

 

[tuvons]

Teşekkürler @uzmanamele işe yaradı.