ترتيب وترحيل

[الدهشوري]

المطلوب استخراج تاريخ الميلاد والنوع من الرقم القومى 

حساب السن في 1/10/

الترحيل مع الترتيب من الاكبر للاصغر 

حضانة.rar

[الدهشوري]

اين ابداعاتكم يا عظماء هذا الصرح

[ياسر خليل أبو البراء]

أخي الكريم

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

الرابط من هنا

 

وإليك الرابط التالي فيه شرح لحساب السن

الرابط من هنا

[الدهشوري]

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

المشكلة تكمن في الترحيل إلى الصفحات .. ثم الترتيب من الاكبر للاصغر ولك منى جزيل الشكر ،،، وفائق الاحترام 

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

[أبو حنــــين]

السلام عليكم

هذه محاولة تفي بالغرض

حضانة.rar

[الدهشوري]

جزاك الله خيراً استاذى ابو حنين .... لكن تظهر هذه الرسالة بعد الضغط على ترحيل وترتيب 

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

** يتم استبدال مستوى أول وثان إلي قاعة ويكون عدد القاعات 5 قاعات .

** يتم زيادة عدد الاطفال الي 250 طفل . 

المرفق حساب السن لرياض الاطفال.rar

[أبو حنــــين]

مرحبا اخي الدهشوري

الخطأ لا يحدث عندي

قم بتصوير مكان وقوع الخط أي عند ظهور الرسالة اضعط على Debug  و صور مكان الخطأ

[أبو حنــــين]

 

تم التعديل على الملف حسب ما طلبت في المرفق

حساب السن لرياض الاطفال والصف الاول2.rar

[الدهشوري]

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

الملف الاول يعمل الآن بصورة جيدة بعد نقل الملف وفتحة على اوفيس 2007 لكن زر الترتيب بصفحات القاعات لا يعمل .

اما الملف الآخر الذى قمت علية بالتعديل توجد به بعد الملاحظات :

- الترحيل لايعمل 

- التسجيل لا يعمل

تم تعديل مايو 29, 2016 بواسطه الدهشوري

[الدهشوري]

[أبو حنــــين]

لا ادري ما المشكلة لان الخطأ لا يظهر عندي

لكن جرب ان تستبدل هذا السطر 

iDate2 = CDate(Cells(e, 5) & "-" & Cells(e, 6) & "-" & Cells(e, 7))

بهذا السطر

iDate2 = VBA.DateValue(CDate(Cells(e, 5) & "-" & Cells(e, 6) & "-" & Cells(e, 7)))