مبدع كالعادة أستاذ / على

حلول مثالية ـ جزاكم الله خيرا

------------------------------

وإثراء للموضوع اتفضل حل آخر للترحيل بالأكواد بناء على الشرط المذكور

فعند اختيار رقم الفصل من القائمة والضغط على زر ( استدعاء البيانات ) ^^^ المطلوب

--------------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

-------------------------------------

تقبل تحياتى

 
أستاذ / أحمد

الحمد لله إن المشكلة اتحلت

ولكن الأكواد كلها شغالة عندى سواء الكود الأول أو كود الأستاذ / على

 
اتفضل أستاذ أحمد تم المطلوب بحمد الله على ملفك

-------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

--------------------------------

فى الكود يوجد حرفين mm ليعبر عن الشهر يمكن جعلها m  واحدة ليظهر بالمطلوب يمكن حذفها

تقبل تحياتى

 
الأستاذ / أحمد

اتفضل المرفق به Userform 1 يحتوى على Textbox1  بمجرد إدخال التاريخ والضغط مفتاح Enter

تحصل على التنسيق المطلوب للتاريخ

ويمكن تغيير التنسيق كما تشاء

----------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

---------------------------------

وهذا هو الكود المستخدم فى الملف

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Me.TextBox1 = Format(Me.TextBox1, "yyyy/mm/dd")

End Sub




تقبل تحياتى

 
أخى الكريم

الطلب محتاج مزيد من الوضيح 

مثلا :  ــ ما هى قائمة المستويات التى تريد إدراجها فى الكمبوبوكس

ـ عمود سنة الميلاد الذى تريد البحث من خلاله

ـ ورقة العمل التى يتم العمل عليها

 أخى الكريم

ضع ملف به المطلوب للتطبيق عليه مع مزيد من التوضيح وإن شاء الله ستجد التفاعل من الأخوة الأعضاء

 
أستاذ / أحمد

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

Me.TextBox1 = Format(Me.TextBox1, "yyyy/m/dd")


 

 الحمد لله الذى بنعمته تتم الصالحات

 
اتفضل أخى الكريم

الملف المرفق به كودين : الأول لترتيب الأسماء الذكور أولا ـ الثانى لترتيب الأسماء الإناث أولا

يمكن استخدام الأزرار لإجراء عملية الأبجدة

---------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

-------------------------

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

Private Sub Worksheet_Change(ByVal Target As Range)

 Dim LR As Long

Application.ScreenUpdating = False

'---------------------------------------

LR = Range("D" & Rows.Count).End(xlUp).Row

    Range("C1:E" & LR).Sort Key1:=Range("E1:E1" & LR), Order1:=xlDescending, Key2:=Range("D1:D" & LR), Order3:=xlAscending, Header:=xlYes

'---------------------------------------     

Application.ScreenUpdating = True

End Sub

 يا ريت رفع الملف مرة أخرى على رابط آخر حيث أن الرابط لا يعمل ( الملف تم حذفه )

 
مبدع كالعادة أستاذ / إسلام

شرح رائع ، جزاكم الله خيرا

 
أستاذ / محمد النيل

مشكور جدا على كلماتك الرقيقة وجزاكم الله خيرا عليها

هذا ما تعلمته على أيدى الأخوة الكرام الذين أُكن لهم كل الاحترام والتقدير والعرفان فى منتدانا العريق

والحمد لله الذى بنعمته تتم الصالحات

وكل عام وأنتم بخير