يوسف عطا

الله ينور يا مجدى بك

إستمر جازاك الله خير

استمر يا بطل تستحق 100 نجمة

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

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

للرفع رفع الله قدركم

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

الله ينور عمل رائع

حالا يا استاذنا سيتم التحميل إن شاء الله الكود فى شيت كشوف التوقيعات برنامج إعداد لجنة ثانوية عامة 1.rar

الأستاذ عادل حنفى حفظه الله رجل المهام الصعبة

جازاكم الله خيرا

الف شكر شرح ولا أروع ننتظر طريقة البرمجة لتشغيل الأزرار ووضع البيانات

الرجاء ارسال نسخة ب اوفيس 2003 لمحاولة المساعدة

هذا الكود كان يعمل جيداً Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Set MyRng1 = [F1:AK2] Set MyRng2 = [D10:AJ2000] If MsgBox("هل تريد الترحيل حسب الشروط", vbYesNo, "تنبيه") = vbYes Then Sheets("1").Range("C10:AH2000").AdvancedFilter xlFilterCopy, MyRng1, MyRng2 MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه" End If Set MyRng1 = Nothing Set MyRng2 = Nothing ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub وبعد تعديل بعض البيانات اصبح لا يعمل الرجاء المساعدة فى تحديد سبب الخطأ و العمل على تصحيحه علماً بأن العلامة الصفراء تظهر على السطر التالى Sheets("1").Range("C10:AH2000").AdvancedFilter xlFilterCopy, MyRng1, MyRng2 MyRng1, MyRng2ولا أعرف ما المقصود ب

الف شكر يا استاذنا الغالى المحترم

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

جازاك الله خيراً

الف شكر أستاذنا الكبير بالفعل الملف المرسل يعمل جيداً جارى إستبدال الصفحة بصفحة مماثلة لكن إسمح لى بسؤال الخطأ كان فين ؟؟

هجرب تانى الف شكر جارى التغيير الف شكر

أخونا الغالى أحمد بدرة بعد التحية عند محاولة فك الضغط عن الملف تظهر الرسالة التالية ولا يتم فك ضغط الملف

الف شكر استاذنا الفاضل أحمد بدرة جارى التحميل و التجربة

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

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

تفضل اللينك يا أستاذنا الغالى https://www.4shared.com/rar/W5xlOTYQda/_____.html حيث أن الملف المضغوط أكثر من 4 ميجا ولم أستطع تحميله على سيرفر المنتدى

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