حذف البيانات الموجودة بالخلية وعدم حذف المعادلات

[علي المصري]

السلام عليكم ورحمة الله وبركاته

هل يمكن عمل كود لحذف البيانات داخل الخلايا في نطاق معين مع عدم حذف المحتويات الخاصة بالخلية في حالة وجود دوال في هذه الخلايا

وعدم حذف محتويات الخلايا الملونة بلون معين ( اللون الاصفر مثلا ) 

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

 

Book1.xlsx

[احمد بدره]

عليك السلام ورحمة الله وبركاته

اتبع الخطوات التي بالصور المرفقة

 

[علي المصري]

شكرا جزيلا على اهتمام حضرتك

تم تحويل الخطوات التي ارسلتها الى الكود التالي

    Range("A2:G13").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.ClearContents
    Range("B2").Select

ولكن باقي الجزء الاخير

وهو عدم حذف محتويات الخلايا الملونة باللون الأصفر مثلا

 

[علي المصري]

المفروض الجزء الثاني يكون كالتالي

    For Each Cell In Selection
        
        If Cell.Interior.Color = Excel.XlRgbColor.rgbWhite Then      'rgbYellow
            Cell.ClearContents
            
        End If
    Next

ولكن كيف يمكن تشغيل الكودين مع بعض 

بحيث اذا كان اللون مخالف للون الابيض لا يتم حذف مكوناتها واذا كانت تحتوي على معادلات لا يتم حذف مكوناتها

[احمد بدره]

جرب هذا لعله يفي الغرض

 

Bookأ.xlsm

تم تعديل ديسمبر 11, 2019 بواسطه احمد بدره

[علي المصري]

شكرا جزيلا

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

 

 

اذا فيه وقت عند حضرتك اشرح لي مكونات هذا الكود