Msgbox Yardım HK.

[elevisse]

Arkadaşlar Yardımınıza ihtiyacım var. Aşağıdaki kod'a Evet Hayırlı mesaj Box eklemek istiyorum. Evet i seçtiğimizde işlem sırasıyla tamamlansın , Hayır seçildiğinde işlemden vazgeçilsin istiyorum. Kodlama konusunda yardımcı olurmusunuz.

Private Sub CLEAR_Click()
 'LİSTEYİ TEMİZLE
 Application.ScreenUpdating = False
 ActiveSheet.Unprotect "12345"
 Range("B14:J39").Select
 Selection.ClearContents
 
 Range("D9").Select
 Selection.ClearContents
 
 Range("H10").Select
 Selection.ClearContents
 
 Range("L14:L39").Select
 Selection.ClearContents
 Range("B14").Select
 ActiveSheet.Protect "12345"
Application.ScreenUpdating = True
End Sub

 

[fedeal]

cvp = MsgBox("DİKKAT SİLİNİYOR, SİLİNSİNMİ ?", vbYesNo, " İSMİNİZ ")
If cvp = vbNo Then
kodların başına yazıp deneyin

 

[elevisse]

Teşekürler çok saolun yardımınız için.

 

[fedeal]

ricaederim iyi calışmalar

 

[elevisse]

Sayın federal kodu denedim fakat hata verdi çalışmadı. sorun nedir acaba ?

 

[fedeal]

Private Sub CLEAR_Click()
'LİSTEYİ TEMİZLE
cvp = MsgBox("DİKKAT SİLİNİYOR, SİLİNSİNMİ ?", vbYesNo, " İSMİNİZ ")
If cvp = vbNo Then
Else
Application.ScreenUpdating = False
ActiveSheet.Unprotect "12345"
Range("B14:J39").Select
Selection.ClearContents

Range("D9").Select
Selection.ClearContents

Range("H10").Select
Selection.ClearContents

Range("L14:L39").Select
Selection.ClearContents
Range("B14").Select
ActiveSheet.Protect "12345"
Application.ScreenUpdating = True
End If
End Sub

bu şekilde denermisiniz.

 

[elevisse]

Hocam hala çalışmıyor. Aşağıdaki hata mesajı çıkıyor
compıle error: Variable not defıned

hatası veriyor.

 

[fedeal]

clear butonu yapıp aynı kodu buna bagladım bende hatasız calışıyor bir inceleyin isterseniz.

 

[elevisse]

Hocam benim dosyam ekte. Deniyorum fakat bir türlü olmuyor.