Makro ile belirlenen aralıklardaki veri girişlerini silmek

[Mavi Deniz]

Öncelikle herkesin ramazan bayramını kutlarım. yapılan girişlerin silinmesini makro ile bir düğme de yapabildim. ancak bir isteğim var, onu da yapabilecek kapasitede bilgim olmadığı için siz değerli, bilgili arkadaşlarımdan yardım beklemekteyim. sorum ekteki dosyada...
Herkese teşekkürler

 

[tahsinanarat]

Sub aralıksil()
Cevap = MsgBox(Prompt:= _
"Girişler Silinecek, kabul ediyor musunuz?", Buttons:=vbQuestion + vbYesNo)
If Cevap = vbYes Then
Range("A3:A46").ClearContents
Range("A53:A96").ClearContents
MsgBox Prompt:="Girişler Silindi!"
End If
End Sub

 

[Mavi Deniz]

Çok teşekkür ederim Sn.Tahsinanarat tam istediğim gibi olmuş. Ramazan Bayramınızı kutlar sağlık, mutluluk ve esenlikler dilerim. Bir sorum daha olacak bu işlem makro olmadan yapılabilirmi acaba?