Sayfa silinsin mi mesajı(kod) düzgün çalışmıyor.

[KONYA42]

Mrb arkadaşlar,ekli çalışma kitabıma kod yazdım.Bütün sayfa silinsin mi?uyarısı yapıyor.Evet dediğin zaman silmiyor.Kodları kontrol edebilirmisiniz?

 

[usubaykan]

Merhaba,
Kodunuzu aşağıdaki gibi düzenleyip dener misiniz?

Sub SİL()
If Sheets("Sayfa1").Activate Then
    s = MsgBox("Bütün sayfa silinsin mi?", vbCritical + vbOKCancel)
        If s = 1 Then
            Range("C2:G26,C30:G56,C60:G86").ClearContents
            Range("C90:G116,C120:G146,C150:G176,C180:G206,C210:G236,C240:G266,C270:G296,C300:G326,C330:G356,C360:G386,C390:G416,C420:G446,C450:G476,C480:G506,C510:G536,C540:G566,C570:G596,C600:G626,C630:G656,C660:G686,C690:G716,C720:G746,C750:G776,C780:G806,C810:G836").ClearContents
        End If
End If
End Sub

 

[KONYA42]

Teşekür ederim.Harika.
Ama neden "Yes", yada "OK" yazdığım zaman çalışmıyor.

 

[usubaykan]

Merhaba,

S=Ok yerine
S= VbOK yazarak deneyiniz.

 

[KONYA42]

Teşekür ederim