أبو أنس حاجب

الشرط المطلوب سيكون الثالث مع الأبقاء على هذين الشرطين والله الموفق والمستعان شرطين يجب أبقائهما.bmp

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

أستاذي الفاضل أليك الشكل المطلوب كنتيجة الشكل المطلوب.bmp

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل محمد (أبا محمود) حفظك الله جزاك الله خيراً على سرعة التفاعل ويسر لك أمرك أين ماكنت. أرجو النظر بدقة إلى سؤالي والتطبيق على نفس ملفي مع مراعاة أن هنالك تنسيقين شرطيين موجودين في ملفي لايمكن الاستغناء عنهما. والاكتفاء بشرط واحد يحقق المطلوب المركب أرجو أعلامي أذا هنالك خظأ في ذكري لأسمك هل هو كما أسلفت أبو أنس

السلام عليكم ورحمة الله وبركاته أرجو المساعدة حفظكم الله تنسيق شرطي واحد مركب بالشروط أدناه: أذا كانت قيمة خلية في العمود H وقيمة أخرى مقابلة لها في العمود J متكررة في الأسفل يتم تلوين خلايا التكرار بلون متماثل وليكن أحمر أما اذا كان التكرار في عمود واحد فقط لا ينفذ الشرط وشرط أخر بنفس المعادلة أذا كانت قيمة خلية في العمود G وقيمة أخرى مقابلة لها في العمود K متكررة في الأسفل يتم تلوين خلايا التكرار بنفس اللون أعلاه مالم تتحقق الشروط تبقى الخلايا على حالها. مع ملاحظة أن هنالك شرطين سابقين يتم الابقاء عليهما كما هما ملاحظة مهمة أخرى أن لا يتم الأستعانة بأي عمود مساعد وأنما بمعادلة مباشرة داخل التنسيق الشرطي جزاكم الله كل خير تنسيق شرطي واحد بشرطين مختلفين.rar

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

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله راجع الرابط أدناه http://www.officena....showtopic=38179 أبو أنس

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله جرب أضافة هذا السطر بداية كود اللصق [d43].End(xlUp).Offset(1, 0).Select وهو لسيدي وأستاذي الفاضل طارق محمود حفظه الله أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا أحمد حفظك الله أبداع منقطع النظير بارك الله بك وفيك وجزاك خير الجزاء في الدنيا والآخرة. أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا أحمد حفظك الله ورعاك جزاك الله كل خير وبارك فيك وبك. أظن أنه كما علمتني سابقاً... يجب أضافة السطرين التاليين في الكود الأول بدايته والآخر نهايته لكي يعمل الكود بدون مشاكل. Application.DisplayAlerts = False Application.DisplayAlerts = True لأن الكود بدونهما اذا فتحت الملف ثم أخترت الغاء وعدت وفتحت الملف سوف يفتح بدون طلب كلمة السر أبو أنس

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

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله جرب هذا الكود Application.ScreenUpdating = False Sheets("sheet1").Select Sheets("sheet1").Copy after:=Sheets("sheet1") Sheets("sheet1 (2)").Select Sheets("sheet1 (2)").Name = Sheets("sheet3").[f2] Sheets("sheet3").Select [f2].Select أبو أنس

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله جرب المرفق لعله المطلوب أبو أنس توزيع الطلاب.rar

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله أنسخ هذا السطر في بداية الكود الذي فيه هذه المشكلة أخبرني بالنتيجة Application.ScreenUpdating = False أبو أنس

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله المجرب حفظك الله جزاك الله خير الجزاء على أهتمامك الدائم وعلى ما تقدمه في هذا الصرح. بالنسبة للكود فهو سليم عدا انه ايضاً يضيف حرف الــ X أيضاً مقابل الخلايا الفارغة في العمود H ولقد أضفت الاضافة التالية فيه وهي مستنبطة من كود للأستاذ الفاضل رجب جاويش حفظه الله أرجو أفادتي بصحتها وهل يمكن أختزالها في الكود. LR = Cells(Rows.Count, 8).End(xlUp).Row + 0 Application.ScreenUpdating = False Range("i" & LR + 1 & ":i" & Rows.Count).ClearContents Application.ScreenUpdating = True أبو أنس

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

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

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