الرائد77

لم أفهم المطلوب. لكن هذه محاولة لاستخراج تاريخ آخر قسط من العمود J الى العمود AM ثم حساب المدة منذ آخر قسط. عدد الشهور المستحقة حتى الان.xls

تفضل عدد الشهور المستحقة حتى الان.xls

شكرا اخي سليم لقد وجدت الحل . فقط قمت بحذف lookat:=1. الكود رائع جدا . جزاك الله حيرا و بارك فيك و لكن لماذا عندما اضغط على الاسم . يمحو البياناات. في الجدول. لم أعرف كيف أعدل على الكود . بحيث عندما أريد أن ارسل البيانات لا يمحو البيانات القديمة بل يعدلها. و عندما اضغط على اسم المعلم يأتي بغياباته في ذلك. لذلك أضفت زرين في الملف الاول .

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

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

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

بارك الله فيك أخي مجدي في انتظار الجزء الثاني الخاص ب الليست بوكس . ممكن الملف لو سمحت

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

السلام عليكم اخواني الافاضل . تكرما منكم، المساعدة في هذا الملف . الشرح الكامل في الملف المرفق. شكرا جزيلا عنوان مخالف .... تم تعديل عنوان المشاركة FROM LISTBOX1 TO LISTBOX2.xlsm

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

كود رائع أعجبني . لكن اريد معرفة ما هي الطريقة لنسخ السيريال نمبر بعد اخراجه و لصقه في خلية ما. الملف مرفق Sub GGGG() Set fso = CreateObject("Scripting.FileSystemObject") Set driveObject = fso.GetDrive("C") MsgBox driveObject.serialnumber Set driveObject = Nothing Set fso = Nothing End Sub HARD DISK SERIAL NUMBER.xlsm

شكرا أخي سليم هذا الشرح في المرفق. توضيح المطلوب 2.xlsm

أخي سليم . أصبح الملف ثقيل جدا عند التنفيذ. لماذا أضفت اسم الاستاذ؟ أنا أريد ارقام قاعات فقط . مثل الملف السابق .فقط تغير مثلا احتياط :28 . الى احتياط :04 حيث 04 يمثل رقم القاعة

السلام عليكم . الأخ سليم حاصبيا . بالنسبة للمطلوب 2. فإنه دائما يقوم بوضع آخر الاساتذة في الاحتياط . اي نفس الاساتذة في الاحتياط في كل الفترات. هل يمكن التناوب في الاحتياط عشوائيا حسب الفترات ؟ . ملاحظة أخرى في الاحتياط مثلا عندما أختار 21 أستاذ و أنا فقط عندي 14 قاعة فإنه يكتب مثلا احتياط:21 ., و لا توجد القاعة رقم 21. المطلوب أعادة توزيع عدد الاساتذة المتبقين عشوائيا على القاعات من 1 الى 14 فقط مثلا الباقي 6 كل فترة يختار 6 من قائمة الاساتدة عشوائيا . إن أمكن فقط و لكم جزيل الشكر.

عمل رائع جدا جدا. 100 اعجاب و فعلا افضل اجابة بارك الله فيك

ارك الله فيك رائع . ماذا عن المطلوب رقم 2. هل يمكن عمل كود له. شكرا اخي سليم . المطلوب 2 فيه شرط آخر. الاهم بالنسبة لي هو الأول. بارك الله فيك

بارك الله فيكم على الردود. عمل رائع جدا الأخ سليم حاصبيا. جزاك الله خيرا. و بارك الله في علمك. لكن هناك مشكل بسيط. عندما اغير عدد مرات التكرار الى 4 او 2 يعمل فقط على 3 مرات. . مثلا يمكن تكون 15 قاعة و 60 استاذ .فأقوم بتوزيع كل 4 أساتذة في قاعة واحدة. أي عدد مرات التكرار تكون 4. و بارك الله فيكم .

السلام عليكم . الاخوة الكرام الرجاء المساعدة في عمل كود حسب المطلوب في الملف المرفق . مطلوب 2 كود حسب الورقتين في الملف بارك الله فيكم . مطلوب 1 و 2.xlsx