Hücre İçeriğini Temizlemede uyarı mesajı

[horozmen90]

Merhaba Arkadaşlar

Sayfa3'deki (H13:H19) içeriğini makro ile siliyorum.
Bu makroyu da bir düğmeye atıyorum.

Makroyu çalıştırdığımda "Temizlemek İstiyor musunuz? EVET/HAYIR"
mesajının gelmesini, EVET ise içeriğini temizlemesini, HAYIR ise temizlememesini
nasıl sağlayabilirim.
Kodlarımı aşağıya çıkardım.

Sheets("Sayfa3").Select
Range("H13:H19").Select
Selection.ClearContents

Not:Yazdırma ile ilgili aynı işlemi Forumdan aldığım kodlarla çözdüm. Teşekkürler.

 

[Orion1]

Buyurun .

Sheets("Sayfa3").Select
Range("H13:H19").Select
[B][COLOR="Red"]If MsgBox("Sayfa3'te H13:H19 aralığı silinsinmi?", vbYesNo + vbQuestion, "S İ L") = vbNo Then Exit Sub[/COLOR][/B]
Selection.ClearContents

 

[horozmen90]

Teşekkür ederim. Kodlar çalışıyor. Ancak bir şeyi yazmayı unutmuşum.
Eğer cevap HAYIR ise seçilen alan iptal olmuyor. Örneğin cevap HAYIR ise H2 hücresini seçebilir.

(Seçim yaptığım hücreler sadece (H13:H19) arası değil, Farklı alanlardaki En az 50 hücreyi seçiyorum. Seçimle ilgili bir problemim bulunmuyor.)

 

[Orion1]

Teşekkür ederim. Kodlar çalışıyor. Ancak bir şeyi yazmayı unutmuşum.
Eğer cevap HAYIR ise seçilen alan iptal olmuyor. Örneğin cevap HAYIR ise H2 hücresini seçebilir.

(Seçim yaptığım hücreler sadece (H13:H19) arası değil, Farklı alanlardaki En az 50 hücreyi seçiyorum. Seçimle ilgili bir problemim bulunmuyor.)

Buyurun.

Sheets("Sayfa3").Select
If MsgBox("Sayfa3'te Seçili alan silinsinmi?", vbYesNo + vbQuestion, "S İ L") = vbNo Then
    Range("H13").Select
    Else
    Selection.ClearContents
End If

 

[horozmen90]

Çok Teşekkür ederim. Sağolun.. Teşekkürler....