اضافة تنبيه عند المسح

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

الساده الافاضل

الاخوة الاعزاء

السلام عليكم

ارجو اضافه تنبيه  ( تحذير عند المسح ) في هذا الكود

Sub delete_data()
  Application.ScreenUpdating = False
    Range("B5:B35" & ",F5:F35" & ",H5:H35" & ",L5:L35").ClearContents
  Application.ScreenUpdating = True
End Sub

[حمادة عمر]

الاخ الكريم

جرب الكود بعد هذا التعديل البسيط حسب فهمي لطلبك

Sub delete_data()
  Application.ScreenUpdating = False
  sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo)
      If sama = vbYes Then
      Range("B5:B35" & ",F5:F35" & ",H5:H35" & ",L5:L35").ClearContents
      Else
      MsgBox "!! لم يتم الحذف"
      End If
  
  Application.ScreenUpdating = True
End Sub

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

الاخ العزيز

هذا هو طلبى فعلا

جزاك الله خير