ابوذر

مشكور الاستاذ سليم

عمل رائع

عندي مواد كنت قد نسيتها و لاستطع التعديل على المكرة.

اريد طلب صغير هل يمكن عمل هذا بمعادلة

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

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

9 ساعات مضت, ابوذر said:

السلام عليكم ورحمة الله و بركته 

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

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

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

وشكرا

 

الكل.rar

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

السلام عليكم ورحمة الله و بركته 

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

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

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

وشكرا

الكل.rar

3 ساعات مضت, ابوذر said:

 

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

هل من رد ارجوكم

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

14 دقائق مضت, ابوذر said:

السلام عليكم ورحمة الله و بركته 

الرجو من منكم مساعتي انني اعاني ولم تفل جميع محاولاتي بالدوال

جلب معلومات التلاميذ من الشيت المصدر " بيانات " الى عدة شيتات بغض النظر عن اسم الشيت بال باسم التلاميذ يتم جلب قرار تاريخ القرار 

وشكرا 

الكل.rar

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

28 دقائق مضت, ابوذر said:

السلام عليكم ورحمة الله و بركته 

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

جلب معلومات التلاميذ من الشيت المصدر " بيانات " الى عدة شيتات بغض النظر عن اسم الشيت بال باسم التلاميذ يتم جلب قرار تاريخ القرار 

 

وشكرا 

الكل.rar

هل من رد ارجوكم

السلام عليكم ورحمة الله و بركته 

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

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

وشكرا 

الكل.rar

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

البرنامج يستخدم بصورة كبيرة في مناطق الغرب الجزائري.

استاذنا الرنامج شغال 100/100

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

وشكرا

شكرا والف شكررررررررررررررررررررررررررررررررررررررر على المجهود

50 دقائق مضت, سليم حاصبيا said:

اخي سليم اشكرك على الرد السريع .

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

جدول تصفية المنح.rar

السلام عليكم  ورحمة الله وبركاته .

اريد مساعد عجلة منكم جزاكم الله كل خير 

رغم تحميل مختف الاكود و التعديل عليها لم انجح في تعديل 

اريد ان يعمل الملف على النحو التالي:

نقل جميع بيانات التلاميذ الناجحين حسب قرار المجلس او النتيجة الى شيت جديد باسم ممنوح و نقل جميع بيانات الراسبين حسب قرار المجلس او النتيجة الى شيت تجميد

وشكر

جدول تصفية المنح.rar

السلام عليكم  ورحمة الله وبركاته .

اريد مساعد عجلة منكم جزاكم الله كل خير 

رغم تحميل مختف الاكود و التعديل عليها لم انجح في تعديل 

اريد ان يعمل الملف على النحو التالي:

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

وشكر

جدول تصفية المنح.rar