رجب جاويش

وهذا حل ثالث add2.rar

أخى الفاضل / أبو أنس حاجب تسلم ايديك ولاثراء الموضوع هذا حل آخر باستخدام دالة sumproduct add.rar

أخى الفاضل جرب هذا الكود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, x As Integer Dim cl As Range, cll As Range LR = [A1000].End(xlUp).Row '========================================================== If Target.Column <> 1 Then Exit Sub For Each cl In Range("B1:B" & LR) If cl = "نهاية خدمة" Then x = cl.Offset(0, -1).Value For Each cll In Range("A1:A" & LR) If Application.WorksheetFunction.CountIf(Range(Cells(cl.Row, 1), Cells(LR, 1)), x) > 1 Then MsgBox "هذا الموظف حصل على نهاية خدمة قبل ذلك ولا يمكن تكراره": Target = "": Target.Select: Exit Sub End If Next Next End Sub عدم تكرار شرط.rar

سلمت يداك أخى الحبيب / محمود :fff: :fff:

تفضل أخى تاريخ + تعبير رياضي.rar

أخى الفاضل / ابو اليسر2011 برجاء ارفاق ملف توضح فيه ما تريد حتى يمكن فهم المطلوب بشكل أفضل

أخى الفاضل /skyblue جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة ورزقك الله بمثل دعائك هذا وأكثر تقبل أرق تحياتى

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

السلام عليكم ورحمة الله وبركاته جرب التعديل التالى نسخ ورقة.rar

أخى الفاضل / يوسف عطا بعد السلام عليكم ورحمة الله وبركاته بالنسبة لأعداد الراسبين تم عمل احصائية اللغة العربية فى الجدول الأول لجميع الفصول أرجو الاطلاع عليها وان كانت كما تريد أكمل لك باقى المواد مع ملاحظة صغيرة عدد الفصول فى الجداول فى شيت 31 هو 21 فصل بينما فى شيت 7 يوجد 22 فصل ثانيا بالنسبة لكود الترحيل الموجود فى شيت 23 عند الغاء الخيار Option Explicit الموجود فى بداية الكود فان الكود يعمل بشكل سليم حيث أن الجملة Option Explicit تستدعى أن يتم تعريف جميع المتغيرات الموجودة فى الكود والا تظهر رسالة خطأ كما تم تعديل بسيط فى شروط الترحيل داخل الكود حيث أن خلايا العمود الأول تحتوى على ناجحة و منقولة للصف الثالث راسبة و لها حق الإعادة راسبة و ليس لها حق الإعادة وليس ناجحة أو لها حق أو ليس لها حق كما كان فى الكود أرجو الاطلاع على الملف وأى طلب أنا تحت أمرك مع خالص تحياتى أخوك / رجب جاويش يوسف.rar

أخى ابراهيم بعد التحية هل تقصد هكذا كود تسلسل.rar

أخى ابراهيم أرجو التوضيح أكثر بالنسبة للتسلسل

تفضل أخى قائمة منسدلة من عدة خلايا متفرقة.rar

أخى الفاضل أرجو توضيح ما تقصده أكثر

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

أخى الفاضل / يوسف عطا أرجو إرفاق الملف لتطبيق الكود عليه

تفضل أخى قائمة منسدلة من عدة خلايا متفرقة.rar

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

أخى الفاضل / عباس السماوي شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

أخى الفاضل الكود Trheel6 يحتوى على رسالة تؤكد تمام الترحيل بالاضافة للرسالة الموجودة فى الكود الأول مما يؤدى لظهور الرسالتين فقط قم بحذف الرسالة الثانية وهى موجودة فى كود Trheel6 MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "تم الترحيل"

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

أخى الفاضل / ريان أحمد شكرا جزيلا أخى الفاضل وجزاك الله كل خير

الاستاذ الكبير / الخالدى تسلم ايديك وتسلم لمساتك السحرية على الأكواد

أخى الفاضل /fzsss شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة أعتقد أن هذا العمل أسهل كثيرا بالأكود لذا لم أفكر أصلا فى تنفيذه بالمعادلات

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