حمادة عمر

السلام عليكم الاستاذ القدير / جمال عبد السميع بارك الله فيك وجعل الله العام الجديد في كل المسرات لك ولأهلك وولدك اجمعين دائما ما تتحفنا بالروائع والابداعات مبدع دائما في المعادلات والاكواد .. حيرتنا معاك ودائما يعجبني جدا استخدام الـ ( Array ) في الاكواد فما بالك مع الالوان .. اعجبتني جدا تحياتي الخاصة للعريس الصغير ( محمود ) وتقبل استاذي خالص تحياتي

السلام عليكم الاخ الكريم / محمدعشره بارك الله فيك علي حسب علمي اخي الكريم انه اذا قمت بعمل حماية للشيت لا يمكنك تحريك الاشكال او حذفها او التعديل فيها شاهد المرفق به زر تم ربطة ارتباط تشهبي ( هايبر لينك ) ولا يمكنك تحريكه او حذفه او التعديل عليه جرب واخبرني بالنتيجة او قم بارفاق الملف المقصود للوقوف علي الخطأ تقبل خالص تحياتي حماية الاشكال.rar

راجع المشاركة رقم 4 لاحضار الادوات التي تريدها وان لم يمكنك ارسل لك الطريقة فيديو

راجع المشاركة رقم 4 لاحضار الادوات التي تريدها وان لم يمكنك ارسل لك الطريقة فيديو

السلام عليكم الاخ الكريم / BACHA22 بارك الله فيك تقبل خالص تحياتي

الاخ الكريم / مختا28 بارك الله فيك ولكن اخي الكريم قم بوضع طلبك في موضوع جديد بعنوان واضح اتباعا لقواعد المشاركة بالمنتدي

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك دائما تقدم الرواائع للجميع وتقدم حتي الطرق المعقدة ( Array ) باسهل الاشكال واقصر الطرق جعله الله في ميزان حسناتك تقبل خالص تحياتي

السلام عليكم الاخ الكريم / نور وحيد بارك الله فيك بالنسبة لطلبك تنفيذ المطلوب باستخدام المعادلات ... فعلي حسب علمي .. ان ذلك لا يمكن الا باستخدام الاكواد ولا يمكن اضافة صف باستخدام المعادلات ... والله اعلم اما بالنسبة لشرح الكود ... فتفضل اخي الكريم ( شرح الكود سطر سطر ) 'اسم المهمة او الاجراء Sub ali_Insrt() 'وضع المتغيرات المستخدمة في الكود Dim i&, Str&, En& Dim Lng% 'السطر التالي يقول انه بالنسبة للشيت الذي تم تنشيطة 'او الشيت المفتوح نفذ الاوامر التالية عليه وذلك باستخدام 'with جملة With ActiveSheet 'السطر التالي يقول اغلق اهتزازات الشاشة في بداية تنفيذ الكود Application.ScreenUpdating = False 'السطر التالي هو عبارة عن سطرين مفصول بينهم بالعلامة ( : ) 'Str = 6 السطر الاول هو 'ويعني ان بداية تنفيذ الكود هو السطر رقم 6 'En = .Cells(.Rows.Count, 2).End(xlUp).Row السطر الثاني 'ويعني نهاية البيانات في العمود 2 Str = 6: En = .Cells(.Rows.Count, 2).End(xlUp).Row 'السطر التالي عبارة توضع لجعل الكود يكمل حتي في حالة وجود خطأ On Error Resume Next 'اظهار بوكس ادخال لادخال عدد الصفوف المطلوب ادراجها Lng = InputBox("إدخل عدد الأسطر المراد إدراجها ", "") 'معادلة تقول انه اذا كانت قيمة الادخال في بوكس الادخال تساوي صفر الغي الامر ' او اذا كانت قيمة بوكس الادخال تساوي نص انه المهمة If Lng = 0 Or Lng = cancel Or Lng = vbString Then Exit Sub 'عمل جملة تكرارية لتنفيذ امر ادراج الصفوف من بداية الصف المختار وهو هنا رقم 6 'الي الصف الاخير بخطوات بالعدد الذي تم تحديده في بوكس الادخال عند ظهوره في بداية الكود For i = En To Str Step -1 .Rows(i + 1).Resize(Lng).Insert 'نهاية الحلقة التكرارية Next i 'السطر التالي يقول انه في حالة وجود خطأ اذهب للصفر او بمعني آخر لاشئ On Error GoTo 0 'السطر التالي نقوم فيه باعادة تشغيل اهتزازات الشاشة Application.ScreenUpdating = True 'with نهاية جملة End With 'نهاية المهمة بالكامل End Sub ارجو ان يكون الشرح واضح وبسيط تقبل خالص تحياتي

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

السلام عليكم الاخ الحبيب / أبو محمد عباس بارك الله فيك دائما والله مرور شرف كبير جدا لي وكلماتك الغالية دائما تشجعني تقبل الله منا ومنكم جزاك الله خيرا تقبل خالص تحياتي

جرب استخدام الكود التالي كود للقدير / عباد - العيدروس Sub ali_Insrt() Dim i&, Str&, En& Dim Lng% With ActiveSheet Application.ScreenUpdating = False Str = 6: En = .Cells(.Rows.Count, 2).End(xlUp).Row On Error Resume Next Lng = InputBox("إدخل عدد الأسطر المراد إدراجها ", "") If Lng = 0 Or Lng = cancel Or Lng = vbString Then Exit Sub For i = En To Str Step -1 .Rows(i + 1).Resize(Lng).Insert Next i On Error GoTo 0 Application.ScreenUpdating = True End With End Sub وشاهد الرابط التالي لعله يفيد http://www.officena.net/ib/index.php?showtopic=49290&hl=%D8%B5%D9%81%D9%8A%D9%86

السلام عليكم الاخ الكريم / أبو ليمونه احيي بالفعل فيك روح حب التعلم الموجودة لديك اعانك الله علي ان تصل الي مبتغاك بعد اذن استاذي الحبيب / ابو حنين ... جزاه الله خيرا تفضل اخي الكود التالي لتنفيذ طلبك : Private Sub UserForm_Initialize() Set ws = Sheets("sheet1") Me.ComboBox1.List = ws.Range("List1").Value Me.ComboBox4.List = ws.Range("List1").Value Me.ComboBox8.List = ws.Range("List1").Value End Sub تقبلوا خالص تحياتي

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك تقبل خالص تحياتي

السلام عليكم الاخ الفاضل / أ محمد عبد الصمد بارك الله فيك جزاك الله خيرا تقبل خالص تحياتي

جرب الكود البسيط التالي لتنفيذ المطلوب ... بعد وضعه في زر امر مثلا Sub sama() Application.ScreenUpdating = False ActiveCell.EntireRow.Select ActiveCell.EntireRow.Copy ActiveCell.EntireRow.Insert Shift:=xlDown Application.CutCopyMode = False ActiveCell.Select Application.ScreenUpdating = True End Sub

أستاذى الحبيب القدير الخبير العلامة / عبد الله باقشير جزاك الله كل خير وجعله الله فى ميزان حسناتك ونحب ان نري كل مقتنياتك القديمة ( من المكتبة العظيمة ) فهي بالنسبة لنا اكيد معلومات جديدة .. نتعلم منه الكثير والكثير كم انت كبير استاذي الحبيب في كل وقت وكل حين تقبل خالص تحياتي

تقبل خالص تحياتي اخي الحبيب

شاهد المرفق بس عذرا لاي خطأ حيث اضع الملف ع السريع جدا جدا 1 كليك في الليست لتنفيذ الطلب الاول 2 كليك او زر المعاينة للمحدد لتنفيذ الطلب الثايي وفي انتظار ملاحظاتك الكتب4.rar

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

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