malitogan
Altın Üye
- Katılım
- 10 Ocak 2009
- Mesajlar
- 31
- Excel Vers. ve Dili
- 2019
- Altın Üyelik Bitiş Tarihi
- 08-07-2026
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
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