Çözüldü Belirli Hücre Aralığındaki Verilerden En Sondakini Silme

[malitogan]

Arkadaşlar Merhaba, Hayırlı Bayramlar.
Aşağıda yazılı makro ile "Özet" sayfasında "AD5 ile AF40" arasındaki hücrelerde yer alan verileri silebiliyorum. Ancak, yine bu aralıkta en son dolu hücrede yer alan veriyi silmek istiyorum. Bir türlü yapamadım. Yardımcı olabilir misiniz?

Sub Sil()
Sheets("Özet").Select
Onay = MsgBox("Fiyat Farkı Verilerini Silmek İstediğinizden Emin misiniz?", vbCritical + vbYesNo, "Dikkat!")
If Onay = vbYes Then Sheets("Özet").Range("ad5:af40").ClearContents
Sheets("Bilgi").Select
If vbNo Then Exit Sub
Sheets("Bilgi").Select
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Clear_Last_Cell()
    Dim Rng As Range, Find_Last_Cell As Range
    
    Set Rng = Range("AD5:AF40")
    
    Set Find_Last_Cell = Rng.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    
    If Not Find_Last_Cell Is Nothing Then Find_Last_Cell.ClearContents
End Sub

 

[malitogan]

Korhan Bey teşekkür ederim. Ancak bu satırda hata veriyor.

 

[Korhan Ayhan]

Sayfada koruma var mı? Ya da birleştirilmiş hücre mi kullanıyorsunuz?

 

[malitogan]

Korhan Hocam maalesef her ikisi de mevcut.

 

[Korhan Ayhan]

Bu durumları belirtmezseniz bizler nerden bilebiliriz ki!

 

[malitogan]

Haklısınız. Kusura bakmayın.

 

[Korhan Ayhan]

Sayfa koruma şifresini kendi dosyanıza göre revize edersiniz.

Option Explicit

Sub Clear_Last_Cell()
    Dim Rng As Range, Find_Last_Cell As Range
    
    Sheets("Özet").Unprotect "12345"
    
    Set Rng = Sheets("Özet").Range("AD5:AF40")
    
    Set Find_Last_Cell = Rng.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    
    If Not Find_Last_Cell Is Nothing Then Find_Last_Cell.Resize(, 3).ClearContents

    Sheets("Özet").Protect "12345"
End Sub

 

[malitogan]

Korhan Bey çok teşekkür ederim. Elinize sağlık.