ياسر خليل أبو البراء

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

أخي الكريم ناصر سعيد قم باستبدال الجزء الذي يحدث فيه الخطأ بهذا الكود With Sheet1 LR = .Cells(.Rows.Count, "AF").End(xlUp).Row .Range("AD6:BH" & LR).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet2.Range("A1:A2"), CopyToRange:=Sheet2.Range("C9:AF9"), Unique:=True End With بالنسبة لنطاق الشرط ... اجعله في ورقة العمل المسماة "نتيجة 4 ترم ثاني" واكتب في الخلية A1 كلمة "التقدير" ، وفي الخلية A2 اكتب كلمة "ضعيف"

وعليكم السلام أخي الكريم نصر جرب نسخة أوفيس جديدة ويفضل تكون نسخة أحدث تحنباً لمشاكل النسخ القديمة أرجو أن يكون الحل في تغيير النسخة

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

أخي الحبيب ومعلمي الكبير أبو تامر بارك الله فيك وجزاك الله كل خير ، ولا حرمنا الله منك أبداً ولا من إبداعاتك دمت ذخراً لنا أخي العزيز ناصر سعيد لم أفهم المشكلة لديك ..من الذي قام بحذف مشاركتك ؟ ولماذا حذفها ؟ ربما يكون الحذف عن طريق الخطأ .. لا أحد سيتعمد حذف المشاركة الخاصة بك أرجو أن يكون هناك تفهم للأمر .. هذا من جانب ، ومن جانب آخر ما الفرق بين أول رد على الموضوع وآخر رد على الموضوع ... المهم أن يكون هناك رد ، ويكون الرد فيه نوع من التفاعل والمشاركة أكثر من مجرد رد تقبلوا وافر تقديري واحترامي

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

أخي الكريم مضطفى أهلاً بك في المنتدى ونورت بين إخوانك هل شكل النتائج المتوقعة كما في المثال هو الرقم 1 في الخلية C4 والرقم 3 في الخلية F4 .. هل تريد الحل بالمعادلات أم بالأكواد؟

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

جرب السطر بهذا الشكل sh.Range("d" & Lr).Formula = "='" & sh.Name & "'!$E$2"

وعليكم السلام ورحمة الله وبركاته أخي الكريم طاهر محمد لك عدد مشاركات 188 مشاركة مما يعني أنك عضو قديم بالمنتدى ..ألم تفكر في مرة أن تطلع على التوجيهات في الموضوعات المثبتة في المنتدى ألم ترى مشاركة من قبل أحد إخوانك يطلب فيها وضع عنوان مناسب للموضوع؟ الرجاء الرجاء الرجاء وضع عناوين مناسبة للموضوعات ... تخيل أنني أتصفح المنتدى ورأيت عناوين الموضوعات بهذا الشكل (أريد المساعدة - ساعدوني من فضلكم - الرجاء المساعدة - حل مشكلة - تعديل على كود - أغيثوني - أنقذوني - ...) ترى هل هذا شكل مناسب للمنتدى !! أعتذر عن الإطالة ، فقد سئمت التوجبه !!!! لأنه لا مجيب إلا القليل !!!!! (أرجو أن يتسع صدرك لكلامي ، فالكلام ليس موجه لك وحدك والله إنما هو موجه لجميع الأعضاء ممن يطرحون الموضوعات ولا يراعون أن يكون الموضوع مكتمل الأركان) عموماً نعود لطلبك ..جرب المعادلة التالية =SUM($D$3:$D$19)-SUMPRODUCT($D$3:$D$19,COUNTIF($G$3:$G$20,$B$3:$B$19)) المعادلة معادلة صفيف أي يجب الضغط على CTRL +SHIFT +ENTER إذا لم تعمل المعادلة معك قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

غير المسار ليصبح بهذا الشكل FolderPath = ThisWorkbook.Path & "\up\"

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

من خلال هذا السطر أخي الكريم FolderPath = ThisWorkbook.Path & "\" يمثل السطر المسار الحالي لنفس المصنف الذي يحتوي الكود

ولك بمثل إن شاء الله أخي الكريم يرجى تغيير اسم الظهور للغة العربية تقبل وافر تقديري واحترامي

أخي الكريم محمد هل تريد العمل على الملف الذي يحتوي على إخطار واحد بالورقة أم على الملف الذي أرفقه أخونا بن عليه ويحتوي على ثلاثة إخطارات الأمر متروك لك ..

أحقاً ما تراه عيني أم أنني ما زلت نائماً وأغط في أحلامي؟!! أخي الحبيب ومعلمي الكبير عمر الحسيني أبو تامر بيننا .. لابد وأنه يوم عيد .. لا تعلم مدى سعادتي بوجودك فيما بيننا فأنت صرح كبير وعلم فذ من أعلام أوفيسنا عوداً حميداً ..عوداً حميداً ..عوداً حميداً وليتك تبقى بين إخوانك تقبل وافر تقديري وحبي واحترامي

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

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

هل تقصد بكلمة لم يحدث شيء أي لم يحدث خطأ أم أن الكود لم ينفذ المطلوب ..ما هو المتوقع من تنفيذ الكود؟

طيب جرب السطر اللي أدرجته في المشاركة السابقة وشوف هيحصل ايه...

أخي الكريم هل تقصد وضع دوائر حمراء في العمود AK مثلاً إذا كانت الدرجة أقل من النهاية الصغرى .. وفي حالة أن الدرجة أكبر من الدرجة الصغرى ولكن درجة آخر العام في العمود AJ أقل من 30 % من الدرجة (كم درجة الـ 30 %؟؟) هل الـ 30% = 15 درجة (أكد المعلومة) في حالة أقل من 30% يوضع مربع أم دائرة حمراء أيضاُ .. مزيد من التوضيح يسهل الوصول لحل

قد تكون النسخة التي لدينا غير كاملة .. حاول تبحث عن أحدث نسخة بدلاً من التحديث للنسخة الموجودة وإذا وصلت لرابط يرجى وضعه ليستفيد الجميع سأحاول البحث من جهتي عن نسخة تكون جيدة 2016 إنجليزي

جرب تضع الجملة التالية قبل السطر الذي يحدث فيه الخطأ .. On Error Resume Next أنا جربت الملف وفتحته ثم قمت بإغلاقه ولم يحدث معي المشكلة في السطر المذكور .. لاحظت أن قلت أنك عطلت الكود الأصلي ..! هل يمكنك وضع الأكواد بدون تعطيل للوقوف على المشكلة بشكل عملي ..

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

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