أبو محمد عباس

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته الاخ العزيز اكرم جلال هذا كود للعالم العلامة الاستاذ عبد الله باقشير حفظه الله وجزاه الله خيرا تقبل فائق احترامي وتقديري Sub ÇáÎáíÉ_ÇáäÔØÉ() Dim U As Integer U = ActiveCell.Row Dim LastRow As Integer LastRow = Cells(Rows.Count, "E").End(xlUp).Row + 1 If U = LastRow Then Range("E7").Select Else Range("E" & LastRow).Select End If ActiveWindow.View = xlNormalView End Sub

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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب احمد عبد الناصر جزاك الله خيرا كود رائع بارك الله فيك وزادك من فضله خيرا كثيرا اخي الحبيب هناك التنسيق دائما اخر ستة صفوف من البيانات المرحلة لايقوم الكود بتنسيقها سوى كانت البيات 50 او 80 او مائة فالستة الاخيرة تبقى دون التنسيق كالصفوف السابقة بالاضافة ان الكود لايقوم بمسح التنسيقات السابقة اذا كانت البيانات السابقة مثلا 100 صف والبيانات اللاحقة 50 صف لايقوم بمسح التنسيقات السابقة وهناك طلب حول انشاء نسخة من الاستمارة باسم المدرسة هل يمكن عملها حيث بالكود الذي ارفقته بمشاركتي الاولى كان موجودا لكن الاسم يكون( استمارة) وانا طلبت ان يكون باسم المدرسة وقمت بتعديل طفيف بالسطر الاخير ليكون التنسيق الى العمود (N) حسب ما ذكرته {Sheets(2).Range("b8:N" & Range("b" } كذلك اضفت Application.ScreenUpdating = False في بداية الكود واضفت Application.CutCopyMode = True في نهاية الكود لمنع الاهتزاز والحمد لله وفقك الله واعانك لعمل الخير والخيرات واعطاك الصحة والعافية دمتم في رعاية الله وحفظه صورة ستة صفوف غير منسقة.rar

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء والاساتذة الافاضل جزاكم الله خيرا وجعل جميع اعمالكم في ميزان حسناتكم الملف المرفق فيه كود عملته من خلال تسجيل ماكرو وهو كبير نوعا ما لكنه يفي بالغرض واعمل به منذ وقت لكن المشكله فيه انه عند نسخ البيانات الى ورقة استمارة يرحلها بدون تنسيق وفي كل مرة اقوم بترحيل البيانات اقوم بتحديد البيانات المرحلة ثم بعد ذلك اقوم بتنسيق البيانات للورقة الجديدة المنسوخة من استمارة ثم اقوم بتسمية الورقة الجديدة باسم المدرسة المرحلة بيانتها بدل اسم ( استمارة ) وهذا ياخذ وقتا كما تعلمون ارجو ابداء المساعدة الممكنة اذا كان هناك اختصار للكود او كود جديد يقوم بنفس الفكرة لكنه يقوم بنسخ تنسيق الصف (B7:N7 ) من ورقة استمارة على جميع البيانات المرحلة من حيث التخطيط وحجم الخط اقصد ان تكون البيانات داخل جدول مخطط بالاضافة ان تكون الورقة الجديدة بعد الترحيل والتي تحمل اسم ( استمارة) ان تاخذ اسم المدرسة من الخلية (E4) من ورقة الرقم الامتحاني كي احفظها باسم المدرسة لاحقا تقبل الله منكم صالح الاعمال واثابكم واعطاكم الصحة والعافية قوائم المرحلة المنتهية للكنترول.rar

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

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

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

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب ابو محمود { ملك المعادلات } جزاك الله خيرا ومعادلات رائعة وتركيبة سحرية لامثيل لها فالمعادلات مطيعة لكم فانتم ملكها ولايمكن لها الا ان تطيع امر ملكها فالمعادلات حتما ليس لها حدود بوجود استاذ كبير وخبير في تركيب المعادلات زادك الله من فضله علما وشرفا واعلى مقامكم في الدارين دمتم في رعاية الله وحفظه

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

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