الأخ الكريم محمد الخازمي
تفضل الكود التالي ..
Sub ClearAllButFormulas()
Dim wks As Worksheet
Set wks = Sheet1
On Error Resume Next
wks.Range("A9:C850,E9:AJ850").SpecialCells(xlCellTypeConstants, 23).ClearContents
On Error GoTo 0
End Sub
تفضل الملف المرفق
ولا تنسى أن تحدد المشاركة التي تعجبك كأفضل إجابة !
تقبل تحياتي
Clear Constants Only.rar