ترتيب الوظيفة وليس ترتيب الاسماء

[مصطفى كمال متولى]

المطلوب : عند الترحيل يتم ترتيب الوظيفة وليس ترتيب الاسماء

توزيع لجان المدرسة1.rar

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

السلام عليكم ..

لم تحدد ورقة العمل المطلوب العمل عليها والنطاق المطلوب العمل عليه بالضبط .. لا أحب العمل على التخمين

ثانياً المدخلات لابد من أن تكون صحيحة لتحصل على نتائج صحيحة .. ففي العمود الثالث في ورقة العمل "القائمة" توجد مسافات زائدة في نهاية البيانات (في معظم الوظائف وليس كلها) ، لذا يجب تصحيح البيانات قبل تنفيذ الكود ..

جرب الكود التالي .. حيث يقوم بترتيب العمود الثالث بحسب الترتيب الذي تفضلت به ، ويرتب أيضاً العمود الثاني .. أي أن كل مجموعة وظائف محددة سيتم ترتيب الأسماء وفقاً لهذه الوظيفة

Sub Sort_Custom()
    Dim n As Long

    Application.AddCustomList Array("كبير معلمين", "معلم خبير", "معلم اول أ", "معلم اول", "معلم", "معلم مساعد", "ادارى")
    n = Application.CustomListCount

    With Sheets("القائمة")
        .Range("B6:F" & .Cells(Rows.Count, 2).End(xlUp).Row).Sort Key1:=.Range("C6"), Key2:=.Range("B6"), Header:=xlYes, OrderCustom:=n + 1
    End With

    Application.DeleteCustomList n
End Sub

 

[مصطفى كمال متولى]

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

الاستاذ ياسر شكرا على سرعة الرد

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

ورقة العمل المطلوب العمل عليها هى (ترحيل المعلمين) عند الضغط على ترحيل  kh-start
وعند الترحيل فى شيت (القائمة ) يتم ترتيب الوظيفة وليس ترتيب الاسماء

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

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

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

[مصطفى كمال متولى]

لو سمحت حاولت دون جدوى التعديل فى شيت القائمة

برجاء اضافة الكود على الملف والتجربة وشكرا لاهتمامكم

ورقة العمل المطلوب العمل عليها هى (ترحيل المعلمين) عند الضغط على ترحيل  kh-start
وعند الترحيل فى شيت (القائمة ) وهو المطلوب للطباعة ترحل الاسماء بترتيب الوظيفة وليس ترتيب الاسماء 

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

يمكن إضافة الكود المقدم في الموديول بشكل عادي .. وفي الكود المسمى kh_start قبل سطر النهاية End Sub ضع هذا السطر

Call Sort_Custom

[مصطفى كمال متولى]

اسف تعبتك معايا 

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

الصورة معناها أنه لم يتم وضع الكود الذي وضعته لك في الموديول .. قم بوضع الكود في نفس الموديول وجرب مرة أخرى