مشكلة في ملف لحذف البيانات أرجو الحل

[asneet]

السلام عليكم

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

ولكن تظهر لي مشكلة عند الضغط عليه مرتين متتاليتين

أو تظهر مشكلة عند الضغط عليه وعدم وجود أي محتوى للخلايا

والمشكلة الأكبر عندي أنه يحذف المعادلات بالضغط عليه للمرة الثانية

أرجو حل هذه المشكلة ولكم جزيل الشكر !

Range.clear.rar

[عبدالله المجرب]

السلام عليكم

جرب هذا التعديل لتجاوز خطاء عدم وجود بيانات

Sub Button1_Click()

prompt = "هل حقا تريد مسح البيانات ؟.انتبه لا يوجد تراجع عن المسح!!"

Command_buttons = vbYesNo + VbMsgBoxRt1Reading

Title = "تحذير. انتبه"

project = MsgBox(prompt, Command_buttons, Title)

If project = vbYes Then

    Range("A7:Z100").Select

    On Error GoTo 1

	    Selection.SpecialCells(xlCellTypeConstants, 23).Select

	    Selection.ClearContents

1:

	    Range("A1").Select

End If

End Sub

========

بخصوص الطلب الثاني

كيف ينضغط عندك مرتين وفيه رسالة تنبيهية

انا جربت ولكنه لا يمسح المعادلات

[asneet]

Selection.SpecialCells(xlCellTypeConstants, 23).Select

الاستاذ الكبيرعبد الله

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

ارجو منك شرح الجزئيه السابقة

[احمد فضيله]

الاخ الحبيب الاستاذ / عبدالله المجرب

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

[عبدالله المجرب]

Selection.SpecialCells(xlCellTypeConstants, 23).Select

السلام عليكم

اخي الفاضل هذه الجزئية هي لتحديد واختيار الثوابت (من ارقام وبيانات) فقط دون باقي العناصر مثل المعادلات والكائنات والتنسيقات وغيرها

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

===

جرب هذه الخطوات

في شيت به قيم ومعادلات

اضغط F5

ثم خاص ثم الصيغ ثم موافق ولاحظ ما يحدث

[الـعيدروس]

السلام عليكم

جرب الكود بعد تعديل بسيط

ان شاء الله يمشي حاله معاك

Sub Button1_Click()

On Error Resume Next

prompt = "هل حقا تريد مسح البيانات ؟.انتبه لا يوجد تراجع عن المسح!!"

Command_buttons = vbYesNo + VbMsgBoxRt1Reading

Title = "تحذير. انتبه"

project = MsgBox(prompt, Command_buttons, Title)

If project = vbYes Then

    Range("A7:Z100").Select

    Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents

    Range("A1").Select

End If

End Sub

[saffaa]

النسخه عندي انجليزي لو سمحت

ماذا يقابل الصيغ

[asneet]

جزاكم الله خيراالاستاذان الكبيران

[Ahmed Elbhiry]

السلام عليكم

جرب هذا التعديل لتجاوز خطاء عدم وجود بيانات

Sub Button1_Click()

prompt = "هل حقا تريد مسح البيانات ؟.انتبه لا يوجد تراجع عن المسح!!"

Command_buttons = vbYesNo + VbMsgBoxRt1Reading

Title = "تحذير. انتبه"

project = MsgBox(prompt, Command_buttons, Title)

If project = vbYes Then

	Range("A7:Z100").Select

	On Error GoTo 1

		Selection.SpecialCells(xlCellTypeConstants, 23).Select

		Selection.ClearContents

1:

		Range("A1").Select

End If

End Sub

========

بخصوص الطلب الثاني

كيف ينضغط عندك مرتين وفيه رسالة تنبيهية

انا جربت ولكنه لا يمسح المعادلات

جربتة على شيت الدور الثلنى

ممتاز ويعمل جيد

مشكور ابو أحمد

[محمدي عبد السميع]

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

جزاكم الله خيراالاستاذان الكبيران

جزاكم الله خيراالاستاذان الكبيران