مسح خلاياء نطاق بدون مسح المعادلات

[محمد الورفلي1]

السلام عليكم

 

الموضوع مسح خلايا نطاق معين  بدون ان يتم مسح المعادلات

 

 

اريد مسح النطاق A9:C850 والنطاق E9:AJ850 بدون مسح الخلية التي بها معادلات

 

 

مسح.rar

تم تعديل أبريل 4, 2015 بواسطه محمد الخازمي

[ياسر خليل أبو البراء]

الأخ الكريم محمد الخازمي

تفضل الكود التالي ..

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

[سليم حاصبيا]

 اليك الحل

عفواً اخي ياسر 

لم اشاهد مشاركتك الا بعد اضافة خاصتي

keep formulas.rar

[ياسر خليل أبو البراء]

الأخ الغالي سليم دائما سباق بارك الله فيك وجزاك الله كل خير..

يرجى مراجعة الكود في المشاركة رقم 4

[محمد الورفلي1]

شكرا استاذ ياسر

[رجب جاويش]

أخى الفاضل سليم
 أخى الفاضل ياسر

كانت هناك مشاركة فارغة سهوا لأخى الفاضل سليم فقمت بحذفها
لذا يكون قصد أخى الفاضل ياسر ( مراجعة الكود فى المشاركة رقم  3 )