السادة الاعضـــاء السلام عليكم
الكود المرفق للاستاذ ياسر خليل
Sub ClearExceptFormulas()
Union(Range("D10:I49"), Range("I50:I53")).SpecialCells(xlCellTypeConstants).ClearContents
End Sub
المطلوب التعديل على الكود بحيث يقوم بمسح البيانات في
النطاق ( A2:Q22)
بدون مسح المعادلات الموجودة فى النطاقات
(B2:B22) - (H2:H22 - (L2:L22) - (P2:Q22)
ولكم منى وافر التحية والاحــترام
المصنف1.rar