نرحيل الى خلاصة الاجازات العرضية و المرضية

[محمد عدنان]

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

ارجو المساعدة بماكرو يقوم يترحيل الاجازات المرضية و العرضية و حالات الوفاة من شيت Day الى شيت Asb كل اجازة الى التموذج المرافق لها علما بان بداية الاجازة هي التاريخ المكتوب في شيت Day  نهاية الاجازة بعدد ايام الغياب و شكرا 

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

DataBASE.xlsx

[احمد عبدالحليم]

تفضل اخى @محمد عدنان الملف المرفق يوجد فى Sheet(Day) زر ترحيل الاجازات اضغط وسوف يقوم بالمطلوب ان شاء الله 
ايضا لاحظت ان تطبع كل جدول فى ورقة مستقلة الكود ايضا يقوم بعمل ذلك كل جدول فى ورقة مستقلة

DataBASE.xlsm

تم تعديل سبتمبر 9, 2023 بواسطه احمد عبدالحليم

[محمد عدنان]

السلام عليكم 

اخ @احمد عبدالحليم بارك الله بجهدك 

لكن المطلوب هو ان تختار من الخلية من c2 رقم وزاري  من الصفحة Asb يقوم بجلب البيانات التي تحتوي على اجازة عرضية من الصفحة Day من العمود E

                                   من الخلية من c19رقم وزاري  من الصفحة Asb يقوم بجلب البيانات التي تحتوي على اجازة عرضية من الصفحة Day من العمود F

                           من الخلية من c36رقم وزاري من الصفحة Asb يقوم بجلب البيانات التي تحتوي على اجازة عرضية من الصفحة Day من العمود g

 

تم تعديل سبتمبر 10, 2023 بواسطه محمد عدنان

[احمد عبدالحليم]

أعتقد من وجه نظري لا يمكن عمل المطلوب كما أوضحت 

تقبل تحياتى

[محمد عدنان]

السلام عليكم 

بارك الله لك و جزاك الله كل خير اخ @احمد عبدالحليم 

ارجو من احد الزملاء  المساعدة في حل بما هو مطلوب 

[محمد عدنان]

السلام عليكم 

اخ @احمد عبدالحليم شاهد الملف المرفق 

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

كل الاحترام 

نرحيل غياب 2023.xlsm

[احمد عبدالحليم]

تفضل اخى مطلبك على الملف الذى ارفقته سابقا بعد توضيح المطلوب

DataBASE2.xlsm

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

لذلك اليك حل اخر بحيث تكون الجداول لانواع الاجازات بجوار بعضها 

البحث برقم الموظف .xlsm

فى كلا الملفين اكتب رقم الموظف سوف تحصل على الاجازات 

تقبل تحياتى

[محمد عدنان]

السلام عليكم 

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

[محمد عدنان]

السلام عليكم  

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

لكن عند اضافة السطر  ملاحظات تحت توقيع المدير

  Me.Cells(lr2 + 3, "a").Value = "ةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةةة "

ماهو التعديل عليه بحيث يوضع في خلية مدمجة من العمود  a  الى العمود E