تعديل على كود مسح

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الاعزاء  الاساتذة الكرام 

ارجو المساعده على تعديل الكود النالى  بحيث لا يظهر 

اى اخطار بالمسح او تاكيد المسح... بتم المسح وفقط 

()Sub delete_datas

    Application.ScreenUpdating = False

    sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo)

    If sama = vbYes Then

        For Each Sh In Worksheets

            If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _

            Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _

            Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents

        Next

    Else

        MsgBox "!! لم يتم التفريغ"

    End If

    Application.ScreenUpdating = True

    Sheets("عام").Select

End Sub

 

جزاكم الله كل الخير

 

[رجب جاويش]

السلام عليكم

أخى الفاضل

يكون الكود كالآتى

Sub delete_datas()
    Application.ScreenUpdating = False
        For Each Sh In Worksheets
            If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _
            Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _
            Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents
        Next
    Application.ScreenUpdating = True
    Sheets("عام").Select
End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

اخى الغزبز 

رجب جاويش

 

سلمت يداك  

جزاك الله كل الخير 

[رجب جاويش]

أخى الفاضل / أبو حنين

جزاك الله كل خير