ضبط كود مسح

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

السلام عليكم

ارجو المساعده فى ضبط كود لمسح ما بداخل الخلايل

دون التاثير على المعادلات التى بالخلايا

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

 او يكون النطاق الخلايا المراد مس ما بداخلهل من  B5 TO L40

شاكر للجميع تعاونكم

  

 

[قنديل الصياد]

اخى العزيز

جرب الملف المرفق

 

 

Book1.rar

[قنديل الصياد]

اخى العزيز

هذا ملف اخر بكود  مختلف

 

 

Book2.rar

[دودى الهادى]

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

http://www.fedv.bu.edu.eg/

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

السلام عليكم

جزاك الله خير اخى قنديل على سرعه ردك

جزاك الله خير على المشاركة البنائه

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

 اخى قنديل 

هل يمكن ضبط هذا الامر على الكود المرفق لانى لم استطيع ان اطبقه

يمسح كل ما فى الشيت حتى المعادلات

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

 

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

 

[قنديل الصياد]

 مرفق  ملف به الكود الخاص بك مع تعديل لمسح كل الاعمدة ما عدا الاعمدة المحددة والتى تقوم انت بتحديدها مسبقا

 

Book1.rar

 

 

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

السلام عليكم

اخى قنديل 

جزاك الله خير

[قنديل الصياد]