ابوذر

مشكور الاستاذ سليم عمل رائع عندي مواد كنت قد نسيتها و لاستطع التعديل على المكرة. اريد طلب صغير هل يمكن عمل هذا بمعادلة شكرا اخي جزاك الله كل خير Prof_Madda_New1.xlsm

شكرا استادنا الغالي سليم لكن اريد تعديل بسيط 1- الجدول الاول ممكن يكون به عدد متغير من الاساتدة و التخصصات 2- في الجدول الثاني يمكن في ان يزيد عدد الاقسام او ينقص يتراوح بين 10اقسام حى 46 قسم كحد اقصى كما لبد من ان تكون الاقسام مرتبة من 1م1 1م2 1م3 الخ لذلك عند تشكيل الماكرو فانه يغير الترتيب جزاك الله كل خير و عافية شكرا Prof_Madda3.xlsm Prof_Madda4.xlsm

شكرا مسبقا لكن اريد ان يتم البحث في الجدول الاول الى الثاني كما انه في كل مرة يمكن تغيبر ترتيب الاقسم بقوائم منسدلة . في الملف تتم عملية الجلب بالعمود الاول للنتيجة لا ينتقل للعمود الثاني شكرا Prof_Madda1.xlsm

اساتذة الكرام اريد حل . من الجدول 2 يبحث بالقسم و مادة التدريس في الجدول 1 و يجلب الاستاذ المدرس للقسم للمادة وشكرا المصنف العمل.xlsx

السلام عليكم ورحمة الله و بركته ارجو المساعدة عاجل نرجو من الاساتذة الكرام على تعديل على مكرو في الملف اريد اضافة يبحث عن الاستاذ و يجلب له الفوج و يرحله الى الشيت خاص به المشكل في حصص الافواج عند كتابة عربية/رياضيات يجب تقسيم المادة و جلب استاذ المسند لها و ترحيله و شكرا Sub t_booking() Dim Sh As Worksheet Sheets("مواقيت الأساتذة").Activate last_row = [B10000].End(xlUp).Row Set Sh = Sheets("حجز مواقيت الأقسام") last_row2 = Sh.[D10000].End(xlUp).Row For rr = 8 To last_row If Cells(rr, 2) = "" Then GoTo 10 t_name = Cells(rr, 2) For day_col = 6 To 14 Step 2 For j = 8 To last_row2 If Sh.Cells(j, day_col) = t_name Then t_time2 = Sh.Cells(j, 4) t_deprt = Sh.Cells(8 * Int(j / 8), 2) & " -- " & Sh.Cells(j, day_col - 1) new_col = day_col / 2 + 2 For i = 0 To 7 t_time = Cells(rr + i, 4) If t_time = t_time2 Then Cells(rr + i, new_col) = t_deprt Next i End If Next j Next day_col 10 Next rr end sub RGF_verمعدل.rar

السلام عليكم ورحمة الله و بركته نرجو من الاساتذة الكرام على تعديل على مكرو في الملف اريد اضافة يبحث عن الاستاذ و يجلب له الفوج و يرحله الى الشيت خاص به المشكل في حصص الافواج عند كتابة عربية/رياضيات يجب تقسيم المادة و جلب استاذ المسند لها و ترحيله و شكرا Sub t_booking() Dim Sh As Worksheet Sheets("مواقيت الأساتذة").Activate last_row = [B10000].End(xlUp).Row Set Sh = Sheets("حجز مواقيت الأقسام") last_row2 = Sh.[D10000].End(xlUp).Row For rr = 8 To last_row If Cells(rr, 2) = "" Then GoTo 10 t_name = Cells(rr, 2) For day_col = 6 To 14 Step 2 For j = 8 To last_row2 If Sh.Cells(j, day_col) = t_name Then t_time2 = Sh.Cells(j, 4) t_deprt = Sh.Cells(8 * Int(j / 8), 2) & " -- " & Sh.Cells(j, day_col - 1) new_col = day_col / 2 + 2 For i = 0 To 7 t_time = Cells(rr + i, 4) If t_time = t_time2 Then Cells(rr + i, new_col) = t_deprt Next i End If Next j Next day_col 10 Next rr end sub RGF_verمعدل.rar

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

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

ارجو من الاساتذة الكرام مساعدتي في ربط جميع الملفات في ملف donnees_cem شيت 1 لجلب النقاط التلميذ حسب التلميذ و المادة و شكرا ملف العمل.rar

ارجوكم ساعدوني . يكون البحث مثل دالة vlookup

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

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

ارجوكم ساعدوني فشل و لم تعمل الدوال vlookup حتى انني حملت افيس 2013 و لاجدوى هل من رد ارجوكم

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

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