هشام شلبى

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

السلام عليكم =========== اخى كيماس بارك الله فيك من فضلك راجع الصيغة مرة اخرى

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

السلام عليكم =========== تفضل المرفق التكرار.rar

السلام عليكم =========== الاخ العزيزhussien2222 هذا هو الكود Sub KHH_START() Dim R As Integer, M As Integer, N As Integer, O As Integer Sheets("ناجح").Range("B10:df1000").ClearContents Sheets("دور ثان فى").Range("B10:df1000").ClearContents Sheets("راسب").Range("B10:df1000").ClearContents M = 10: N = 10: O = 10 Application.ScreenUpdating = False For R = 1 To 1000 If Cells(R, 82) = "ناجح" Then Range("A" & R).Resize(1, 125).Copy Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 ElseIf Cells(R, 82) = "دور ثان فى" Then Range("A" & R).Resize(1, 125).Copy Sheets("دور ثان فى").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False N = N + 1 ElseIf Cells(R, 82) = "راسب" Then Range("A" & R).Resize(1, 125).Copy Sheets("راسب").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False O = O + 1 End If Next MsgBox ("تم الترحيل ") Application.ScreenUpdating = True End Sub اسم الكود KHH_START() ولا استطيغ ان اضع به اسمى لانه ليس لى بل عدلت عليه ليناسب طلبك وهو الترحيل الى ثلاث صفحات وكان الكود يعمل على صفحتان فقط وكان هناك خطأ اخر وهو فى المعادلة =IF(AND(CG10=0;CH10=0);"ناجح";IF(CG10>2;"راسب";"دور ثان فى")) كان بعد عبارة له دور ثان فى يوجد مسطرة تم ازالتها والان الكود يعمل بشكل جيد شاهد المرفق كنترول الصف 2010 الاول1.rar

السلام عليكم =========== الاخ goda509129 برجاء التوضيح اكثر ما هى الصفوف التى تريد ترحيلها ام تريد ترحيل الشيت كما هو نسخة طبق الاصل

السلام عليكم =========== الاخ hussien2222 انا لا اتذكر تلك الكود لو ذكرتنى بالمرفق استطيع الحل ان شاء الله غالبا الكود سيكون بصيغة المذكر "احنمال" او ماشابه مثلا فى انتظار ردك

السلام عليكم =========== فى الخلايا C1 & D1 & E1 ضع النهاية الصغرى للمادة شاهد المرفق درجات الطلاب.rar

السلام عليكم =========== تحياتى اخى الحبيب سالم الاخ مصطفى "واحدة واحدة" فى المشاركة رقم 11 لانك لم تضف الكود الخاص بالمعادلة فى ملفك وهو Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة) For x = 1 To جدول_البيانات.Rows.Count If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then Counter = Counter + 1 If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For End If Next End Function هذا اولا اما فتم ان شاء الله شاهد المرفق لى طلب حاول العمل على الملف المرفق لان ملفك به مشكلة ولا استطيع العمل عليه او حاول انت نقل الاكزاد لربما ينصلح الحال فى المشاركة رقم 12 مش مفهومة الفيومى عربى خروج فقط بعد السرى1.rar

السلام عليكم =========== فى المرفق تعديل على فورم الصفحة الاولى ليعمل زر الحفظ والانهاء وايضا جزء من طلبك الاخير وهو تحديد الفصل الدراسى الاول والثانى ولكى يتم ضرب السرى والجلوس اريد مزيد من الشرح هل ستضع مسلسل باسماء الطلبة كامل ام ستقسم الطلبة الى مجموعات لوضع السرى بمعنى اذا كان عدد الطلبة لديك فى التيرم االاول 300 مثلا هل ستضع السرى لهم من 101 الى 400 مثلا ام ستقسمهم مجموعات اريد توضيح للامر الفيومى عربى خروج فقط بعد السرى.rar

السلام عليكم =========== تفضل طلبك الثانى الفيومى عربى.rar

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

السلام عليكم =========== اخى الحبيب بن عليه بارك الله فيك ولاثراء الموضوع هذا حل اخر باستخدام الدالة SUM Book111_1.rar

السلام عليكم ========== تفضلى المرفق عساه طلبك sbah.rar

السلام عليكم =========== الاخ خالدى بمجرد تغيير الاسم فى B4 او B7 يعطى #VALUE! عالج الامر

السلام عليكم =========== ابو العقاب شاهد المرفق ابو العقاب.rar

السلام عليكم =========== ماذا يعنى الرقم 7.831 الرجاء التوضيح اخى ابن المدينة معلش فى السؤال ماذا تتوقع الاجابة احيانا الاجابة تؤدى الى الحل منتظر ردك

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

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

السلام عليكم =========== الاخ العزيز الشرابى على فكرة هى مش ثلث الدرجة هى 30% من الدرجة وعلى فكرة كمان معمول حسابها وجرب تانى ده شئ اساسى وموجود بالفعل

السلام عليكم =========== الاخ نور سعيد هذا طلبك كيفية عمل موضوع وارفاق ملف كيف ارفع موضوع للمنتدى.rar

السلام عليكم =========== اتمنى ان انول شيئا من الدعاء للمشاركات.rar

السلام عليكم =========== شاهد المرفق Monthly Attendance Record.rar

السلام عليكم =========== الجمع بين التاريخين بالكود طلبك جمع بين تاريخين بالكود1.rar

السلام عليكم =========== عدلت لك المعادلة فى AP3 نسخة من Xl0000002.rar