عادل حنفي

ان شاء الله يكون غيابه خيرا

و نطمأن عليه قريبا باذن الله

بارك الله فيك اخي ياسر و جعله في ميزان حسناتك

و لكنك نسيت رفع الملف

تحياتي

الاخ يوسف

يجب تجربة الملف علي بيانات واقعية ليس علي اي بيانات اجتهادية

فهل يعقل 200 ملاحظ علي 3 مواد و 3 قاعات ليكون في الفردي 194 احتياطي و في الزوجي 197 احتياطي

و علي العموم جرب المرفق

ساقية اللجان.rar

تم التعديل لخطأ بسيط

ساقية اللجان.rar

اخي جرب الملف بالشكل التالي

ساقية اللجان.rar

اخي هذا بالفعل ما يحدث و لكن علي العموم سيتم المراجعة

اخي يوسف

بالنسبة لثقل الملف الملف يعمل عندي دون اي مشاكل

بالنسبة للخليةA1000 كانت تستخدم سابقا اما الان فلا المستخدم حاليا الخلية A1500 , A2000 بدلا من A1, A2

جرب الملف جيدا و اخبرني بالملاحظات

تحياتي

اخي الحبيب سعد عابد

اعتذر لك لاني لم اري مشاركتك الا الان

لك كل الشكر علي كلماتك الطيبة و كل عام و انت بكل خير

اخي الحبيب و اللي منورني دائما الحسامي

بارك الله فيك و اضافتك فعلا جميله سلمت يداك

اخي الحبيب يوسف عطا

اشكرك علي مرورك و كلماتك

اخي الحبيب ابو الحارث

كل الشكر علي كلماتك الطيبة

و علي فكره كود اخي يحياوي جميل و يمكن استخدامه لعمل اشياء هامه و هذا للملاحظة

خالص تحياتي و تقديري

اخي محمد

عذرا علي الخطأ في الاسم

هذا رابط الملف بالفكرة التي سبق وان حدثتك عنها حيث انه اكبر من الحجم المسموح به

My link

جربه و اخبرني النتيجة

اخي يمكن كل شيئ و لكن حدد ما تريده و يفيدك كذلك مكان وضع الكود ضعه في المكان الذي يخدم ما تقوم علي عمله

و لكن لن يعمل الكود الا بالانتقال الي شيت اخر ثم الي الرجوع لهذا الشيت

تحياتي

اخي يحياوي

كود جميل و يمكن استخدامه في مثل هذه الامور

بارك الله فيك

اخي محمود فريد

فكرة الكود

عند فتح الملف يتم وضع زيرو او صفر في الخلية k5 و مسح محتويات الخلية j5 التي هناك كود في حدث التغيير لها يتم عمل الكود

الذي يبحث في العمود الثاني عن اول قيمة اكبر من الخلية k5 و عند وجودها و هنا دور goto 0 فبها يتم الخروج من حلقة تكرار البحث

لكتابة قيمة ماوجده في العمود الثاني في الخلية k5 و القيمة القابله له في العمود الاول في الخلية j5

ارجو ان تكون الامور واضحة الا ارجو الاستفسار مرة اخري

اخي yahiaoui

مشكور علي مرورك كلماتك

و ثنائك علي الملف بارك الله فيك

اخي محمود فريد

سلمت اخي

و علي فكره جاءتني فكرة اخري للملف ان استطعت تنفيذها سيتم رفعها

خالص تحياتي

اخي بالفعل جعلتني اجتهد من اجل هذا الشهر الكريم

و هي فكره بالفعل حلوه

الملف يعرض اسماء الله الحسني ثم يكررها بعد الانهاء من اخر اسم

انظر المرفق و اعطيني رايك

و كل عام و انت بخير

اسماء الله الحسني.rar

وبارك الله فيك اخي محمود

اخي ابو احمد

اخي ابو الحارث

بارك الله فيكما و شرفي مروركما

اخي محمد فريد

ساري ما يمكن عمله و ارد عليك

تحياتي

اخي

بارك الله فيك

اخي الفاضل المعادلة لا تحسب ال 6 اشهر بل تحسب المتبقي علي الايجار حتي اليوم و تاريخ البدايه المكتوب شهر 9

و الفارق بين ال 180 و ال 209 هو الفارق بين تاريخ اليوم وتاريخ البداية يعني ان شاء الله المعادلة مضبوطه

تحياتي

اخي جرب المرفق ان شاء الله يكون المطلوب

الوقت.rar

تم ابعاد الكود عن الخلية A1 والخلية A2

مع تعديل مدي الاحتياطي

ساقية اللجان.rar

اخي يوسف

هل يستوعب البرنامج عدد معين من الإحتياطيين أم أنه مفتوح للحد الأقصى منهم ؟؟

نعم اخي يستوعب عددالاحتياطي بعد التعديل الذي ذكرته لك

و لتنتهي منه نهائيا

غير التالي

With Columns(4).Rows(300).End(xlUp)

الي

mmnn = 220 + Sheets("data").Range("D3") + Sheets("data").Range("D4")

With Columns(4).Rows(mmnn).End(xlUp)

هذا بالنسبة لشيت الملاحظة الزوجي اما بالنسبة الي الفردي غير التالي

With Columns(4).Rows(250).End(xlUp)

الي

mmnn = 220 + Sheets("data1").Range("D3") + Sheets("data1").Range("D4")

With Columns(4).Rows(mmnn).End(xlUp)

وسيكون بالزياده كمان

تحياتي

اخي يوسف

كود المسلسل مع وضع الاحتياطي هو

n = 1

For i = 10 To 207

If Sheets("شيت طبع كشف الملاحظة").Cells(i, 22) <> "" Then

With Columns(4).Rows(300).End(xlUp)

.Offset(1, 0) = n

.Offset(1, 1) = Sheets("شيت طبع كشف الملاحظة").Cells(i, 23)

End With

End If

n = n + 1

Next

اخي بالنسبة للخلية A1 يتم استخدامها بالكود اذا كنت تريد استخدامها يجب تغيرها الي خلية اخري بمراجعة الكود و التعديل عليه

اخي جلال

اولا مرحبا بك

و انا تخليت ما ذكرته الان و هناك ان شاء الله امكانية لعمله و لكن اتخيل ان امامها عقبات صغيرة تحل ان شاء الله

فهناك نسخ لاسماء الملاحظين من المدي كذا الي كذا و بقولك يجب تخطي احدهما او عدد منهم لذا اقترح

و انت معنا بس ننتهي من التاكد من ان البرنامج بهذا الشكل يعطي النتائج المطلوبة لنكمل الطلبات المنطقية مثل طلبك

تحياتي

اخي يوسف

ليس هناك تهييس و لا شيئ بل هي بيانات زائدة عن المدي الذي يسمح

به البرنامج و عند التعدي علي ذلك تجد ما تسميه النهييس

غير الجزء التالي من الكود

If Sheets("شيت طبع كشف الملاحظة").Cells(i, 22) <> "" Then

With Columns(4).Rows(229).End(xlUp)

الي التالي

If Sheets("شيت طبع كشف الملاحظة").Cells(i, 22) <> "" Then

With Columns(4).Rows(300).End(xlUp)

و ايضا هذا يؤثر علي التسلسل

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

اولا تاكد من ان ما تعمل عليه هو اخر نسخة للبرامج مع ان حتي النسخ القديمة منه لم تظهر مشكلة مشابهة

ثانيا يجب الا تغيير اي شيئ في صفحةdata يدويا فالتغيير يجب ان يكون في صفحة شيت البيانات تم الضغط علي creat ليقوم بالغاء الشيت القديم ان وجد

و بالضغط عليه مرة اخري يدرج لك الشيت الجديد و ما عليك فعله فقط هو الضغط علي Do Job لملأ البيانات دون تدخلك

و اذا كان هذا ما تم ارجو رفع ملفا يحتوي علي الخطأ

تحياتي

اخي قم بفتح الملف المرفق و انتظر

ارجو ان يكون هذا ما تطلبه

طبعا قد تم عمل المدة الزمنية صغيرة لملاحظة التغيرات و يمكنك تعديلها الي ما تريد

تحياتي

time.rar

تم اضافة المسلسل الي الاحتياطي

ساقية اللجان.rar

تم اضافة الطباعة لكل المواد او لمادة معينة

لكل من الشيت الفردي او الزوجي مع تحديد الهوامش

ساقية اللجان.rar

و هذا الملف مع تعديلات اخري تم ضبطها

ساقية اللجان.rar