اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نعديل على كود مسح محتوى خلايا دون المعادلات


الردود الموصى بها

السلام عليكم

الاخوة الكرام 

مرفق كود يقوم لمسح محتوى الخلايا فى نطاق

 ActiveSheet.Range("B3:NV637").SpecialCells(xlCellTypeConstants, 23).ClearContents

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

من    ...... الى 

او تحديد النطاق المراد مسح محتواه بالموس 

وذلك لتلافى النطاق المحدد 

 

كود حذف دون المعدلات1.rar

رابط هذا التعليق
شارك

السلام عليكم

اخي العزيز ابو حنين

ارفقت الملف بعد اضافة كود الاستاذ المبدع بن علية حاجي جزاه الله خيرا

يقوم الكود بمسح البيانات باستثناء المعادلات والصيغ

ربما يفي بالغرض 

تحياتي وشكرا لكم

اضافة كود بن علية حاجي.rar

رابط هذا التعليق
شارك

السلام عليكم

اخى الحبيب مصطفى 

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

لاكن المطلوب  هو اظهار  تكست بوكس لتحديد المحتوى الذى اريد وليس محتوى ثابت فى الكود 

اى اذا ارت ان امسح محتوى الخلايا a3 الى f50 

يظهر تكست بوكس لتحديد المدى المراد حذفة دون المعادلات

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

هو ده المطلوب بشكل ممتاز

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

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

تم تعديل بواسطه ۩◊۩ أبو حنين ۩◊۩
رابط هذا التعليق
شارك

السلام عليكم

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

جزاك الله كلا الخير  وجزاء الله اخى الحبيب بن علية حاجى كل الخير 

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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information