حمادة عمر

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

تم نقل الموضوع في منتدي الورد

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

السلام عليكم عمل اكثر من رائع ومبذول فيه جهد كبير بارك الله فيك وفى انتظار المزيد جزاك الله خيرا

السلام عليكم الاخ الكريم /http://www.officena....showtopic=41520 ============== الادارة ==============

السلام عليكم الاخ الكريم / morestudy بارك الله فيك بالنسبة لسؤالك بخصوص المسح فعند تحديد مجموعة خلايا من ضمنها الخلايا المقصودة فان عملية المسح تتم بالفعل ويتم مسح البيانات ولتنيذ ذلك فيمكن استخدام اكواد أخري ذات فعالية اعلي تقبل خالص تحياتي

السلام عليكم الاستاذ المهندس / طارق محمود بارك الله فيك دائما مبدع واستاذ وياريت متطولش غيابك علينا

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

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

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

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

راااااااائع اخى واستاذنا الحبيب جزاك الله خيرا وجعله فى ميزان حسناتك

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

السلام عليكم الاخ الكريم /http://www.officena....showtopic=41520 ------------------------------------------------------------------------------------------------------------

السلام عليكم وكما اخبرنا اخي الحبيب الاستاذ / ياسر خليل ... جزاه الله خيرا فعلا اخي الكريم / علي المصري ... بهذه الطريقة ( مفيش فايدة ) هههههههههههه واضافة للكود المرفق منك ولمن يحتاجه اليك تعديل بسيط ليعمل هذا الكود وبنفس الطريقة علي الخلايا المفردة والخلايا في حالة دمجها Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.MergeCells & Target.HasFormula = True Then Target.Offset(0, 1).Select If Target.HasFormula = True Then Target.Offset(0, 1).Select End Sub تقبلوا خالص تحياتي حماية المعادلات حتي في الخلايا المدمجة.rar

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520 ============== الادارة ==============

السلام عليكم الاخ الكريم / MoChekEs بارك الله فيك استخدم الكود التالي لتنفيذ طلبك الرقم السري لاظهار الاوراق هو ( 333 ) كما في الكود Sub hide_all_sheets() x = InputBox("ادخل كلمة السر.... ??") If x <> "333" Then GoTo 10 If [U1] <> False Then [U1] = False: GoTo 10 [U1] = True 10 For i = 2 To Sheets.Count Sheets(i).Visible = [U1].Value Next i End Sub تقبل خالص تحياتي اخفاء واظهار كل اوراق العمل.rar اخفاء واظهار كل اوراق العمل.rar

السلام عليكم الاخ الكريم / ابو نواف بارك الله فيك وبعد ابداع الاساتذة / ياسر خليل ... وابن مصر ... جزاهم الله خيرا هذه محاولة مني لتنفيذ ما تريده اعرض عليك الرابط التالي للتحايل علي الموضوع وتنفيذ المطلوب باخفاء القوائم الموجودة في الاعلي وان تناسب مع طلبك يمكننا تنفيذه علي الشريط الموجود بالاسفل قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة وسهله وتحياتي للاستاذ / ابو محمد عباس تقبل خالص تحياتي

تم تعديل العنوان ليتناسب مع قواعد المشاركات برجاء ملاحظة ذلك فيما بعد ======= الإدارة =======

جزاك الله خيرا اخي الكريم تقبل خالص تحياتي

بارك الله فيكم تحياتي للكبير الغالي/الشهابي جزاكم الله خيرا تم تعديل العنوان ليتناسب مع قواعد المشاركات في المنتدى برجاء مراعاة ذلك فيما بعد ======== الإدارة ========

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

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

السلام عليكم بارك الله فيكم اذا كان المقصود هو التراجع كما يحدث في استخدام التراجع او ctrl+z في الاكسيل العادي فعلي ما اعتقد انه لا يوجد طريقة للتراجع بعد تنفيذ الكود إلا بعمل كود عكسي للكود المطلوب التراجع عنه تقبلوا خالص تحياتي

جزاكم الله خيرا تم تعديل العنوان ليتناسب مع قواعد المشاركات برجاء ملاحظة ذلك فيما بعد =========== الإدارة ===========