Makro Çalışmadan Önce Uyarı Mesajı

[TheSmoke]

Merhaba arkadaşlar
Bir resetleme makrosu yaptım. Çalıştığında formu resetliyor. Ama biraz tehlikeli. Yanlışlıkla tıklayıp resetlersem büyük sıkıntı. Ben bu Reset düğmesine tıkladığımda makro çalışmadan önce "Emin misiniz?" diye sormasını istiyorum. Tıpkı veri doğrulama uyarı mesajı gibi. Acaba mümkün mü üstadlar?

 

[EmrExcel16]

Merhaba , kodların başına ekleyin.

If MsgBox("Merhaba makroya devam etmek istiyormusun ?", vbQuestion + vbYesNo + vbDefaultButton2, "Baslik") = vbNo Then Exit Sub
MsgBox "Makroya devam ediyorum"

 

[TheSmoke]

Merhaba , kodların başına ekleyin.

If MsgBox("Merhaba makroya devam etmek istiyormusun ?", vbQuestion + vbYesNo + vbDefaultButton2, "Baslik") = vbNo Then Exit Sub
MsgBox "Makroya devam ediyorum"

İlginize teşekkür ederim. Çalıştıramadım. Tam olarak nereye eklemem gerekiyor? Kodum şu şekilde.

Sub RESET_FORM()
'
' RESET_FORM Makro
'

'
    Range("C3:C4,E3:E4,G3:G4").Select
    Range("G3").Activate
    ActiveWindow.SmallScroll Down:=3
    Range("C3:C4,E3:E4,G3:G4,D10:D13,D14:G16").Select
    Range("D14").Activate
    ActiveWindow.SmallScroll Down:=18
    Range("C3:C4,E3:E4,G3:G4,D10:D13,D14:G16,D23:D29").Select
    Range("D23").Activate
    ActiveWindow.SmallScroll Down:=9
    Range("C3:C4,E3:E4,G3:G4,D10:D13,D14:G16,D23:D29,D37:E38,D44:E44,C51:C52"). _
        Select
    Range("C51").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-42
    Range("D10").Select
End Sub

 

[EmrExcel16]

Bu şekilde deneyiniz.

Sub RESET_FORM()
'
' RESET_FORM Makro
'

    If MsgBox("Merhaba makroya devam etmek istiyormusun ?", vbQuestion + vbYesNo + vbDefaultButton2, "Baslik") = vbNo Then Exit Sub
    MsgBox "Makroya devam ediyorum" ' Bu mesajı istemiyorsanız bu satiri silin

    Range("C3:C4,E3:E4,G3:G4").Select
    Range("G3").Activate
    ActiveWindow.SmallScroll Down:=3
    Range("C3:C4,E3:E4,G3:G4,D10:D13,D14:G16").Select
    Range("D14").Activate
    ActiveWindow.SmallScroll Down:=18
    Range("C3:C4,E3:E4,G3:G4,D10:D13,D14:G16,D23:D29").Select
    Range("D23").Activate
    ActiveWindow.SmallScroll Down:=9
    Range("C3:C4,E3:E4,G3:G4,D10:D13,D14:G16,D23:D29,D37:E38,D44:E44,C51:C52"). _
        Select
    Range("C51").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-42
    Range("D10").Select
End Sub

 

[TheSmoke]

Elinize sağlık. Çok teşekkür ederim.

 

[EmrExcel16]

Elinize sağlık. Çok teşekkür ederim.

Rica ederim , iyi çalışmalar.

 

[ALTINYAYLA]

Örnek dosyayı ekleyinde bizlerde bilgi edinme şeklinde faydalanalım...

 

[EmrExcel16]

Örnek dosyayı ekleyinde bizlerde bilgi edinme şeklinde faydalanalım...

Merhaba ,faydalanmanız ümidi ile kodları bir dosyaya ekliyorum , ekli dosyada bulabilirsiniz.

Sayın @TheSmoke 'nin kodlarındaki gereksiz alanları da temizledim , bu şekilde kendisi de kullanabilir.

Sub RESET_FORM()
    If MsgBox("Merhaba makroya devam etmek istiyormusun ?", vbQuestion + vbYesNo + vbDefaultButton2, "Baslik") = vbNo Then Exit Sub
    Range("C3:C4,E3:E4,G3:G4,D10:D13,D14:G16,D23:D29,D37:E38,D44:E44,C51:C52").ClearContents 'Belirlenen hücreleri temizler
End Sub