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

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

قام بنشر

الاساتذة الافاضل

لقد قام الاستاذ / وليد فتحى

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

 DC6:PC13مثلاو اتمنى ان يقوم احد باثراء الموضوع للاستفادة ،عن طريق تحديد نطاق معين و ليكن 

بحيث اقوم بتغيير هذا النطاق فقط فى حالة اضافة اعمدة او صفوف على الملف

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

دون مسح المعادلات

و لكم جزيل الشكر فانتم اساتذة فعلا كبار و انا استفدت منكم كثيرا

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

و اشكركم مرة اخرى

جعله الله فى ميزان حسناتكم

 

قام بنشر

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

الاستاذ الفاضل صلاح

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

Sub W_DELETE()
On Error Resume Next
    ActiveSheet.Range("B6:PH132").Value = vbNullString
End Sub

قام بنشر

اشكرك استاذ / وليد على المتابعة

و لكن عند حمل حماية للورقة الكود يعمل و لكن لا يمسح اى شى ثم ان حماية الورقة لا تمكنى من العمل على خلايا البيانات بسبب الحماية

قام بنشر

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

اخي الفضل صلاح

يجب عليك اولا ازالة الحماية من جميع الخلايا

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

جرب وبانتظار ردك

قام بنشر

اريد كود لاثراء الموضوع يتمكن من مسع القيم و البيانات و التعليقات و ذلك على نطاق كبير و ليكن DC6:PC132 دون ان يمسح المعادلات داخل هذا النطاق

  • أفضل إجابة
قام بنشر

اشكرك استاذ / وليد

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

 

استاذ صلاح انت قولت هتجرب وترد

ورجعت قولت عاوز كود

جرب ام لا لاني جربت هذا الكود وشغال تمام بعد تامين الخلايا التي بها معادلات

بانتظار ردك

قام بنشر

استاذ / وليد 

اشكرك على اهتمامك و لكن الملف يمكن اضافة اعمدة به و جائز ان انسى تأمين المعادلات و ان الغاء تأمين البيانات فيتم مسح المعادلات

عزرا سوف اتابع مع حضرتك بعد ساعات 

و اشكرك مرة اخرى

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