[Çö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

[malitogan]

Sorunla ilgili şunu belirtmeliyim, belirtilen aralıkta birleştirilmiş hücreler mevcut. Ayrıca sayfa şifre korumalı.

[Tarkan VURAL]

Merhaba,

Kod: Tümünü seç

Sheets("Özet").Range("ad5:af" & Sheets("Özet").Range("af65536").End(3).Row).ClearContents

Bu kod satırını dener misiniz ?

[malitogan]

Tarkan Hocam teşekkür ederim. Ancak AD5:AF40 aralığındaki hücreler birleştirilmiş. Bu yüzden hata veriyor. Resmi yükleyemedim maalesef.

[malitogan]

Tarkan Bey ilginiz için teşekkür ederim. Problemim aşağıdaki makro ile çözüldü.

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