اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information