دالة لترتيب الوظائف

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

السلام عليكم

اريد دالة او كود يجعل الوظائف مرتبه اذا تم تغيير الوظيفة من القائمة المنسدلة الى الوظيفة المرقى اليها ترحل آليا مع التى تماثلها

مثال :  لو تم ترقية معلم الى معلم اول يتم نقل او ترحيل بيانته آليا الى وظيفة معلم اول وهكذا

بيانات المرحلة الابتدائية2010.rar

تم تعديل أبريل 17, 2014 بواسطه مصطفى كامل

[أبو سجده]

اخى العزيز الاستاذ الفاضل // مصطفى كامل

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

ارجو التوضيح وستجد ماتطلبة بإذن الله تعالى

 وجزاكم الله خيرا

تم تعديل أبريل 17, 2014 بواسطه سعيد بيرم

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

شكرا على اهتمامكم استاذنا سعيد 

ولكن اريد الاتى :

مثال :  لو تم ترقية معلم الى معلم اول اقوم يدويا باختيار الوظيفة المرقى اليها من القائمة المنسدلة ثم اقوم بعد ذلك بقص الصف كاملا وألصقه مع الوظيفة المرقى اليها حسب ترتيب الاسم ابجديا

واريد ان يتم  ذلك آليا عندما اختار الوظيفة الجديدة من القائمة المنسدلة يتم ترحيله آليا  وليس كما شاهدت فى الملفات المرفقة

( تصفية حسب الوظيفة )

ولكن فى نفس ورقة العمل وليس ورقة اخرى لانها مرتبطة بالاحصاء

[أبو سجده]

اخى الفاضل الاستاذ // مصطفى كامل

السلام عليكم

اعتقد ان الملف خاص بشئون العاملين

وافر تقديرى

تم تعديل أبريل 17, 2014 بواسطه سعيد بيرم

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

للرفع

[أبوعيد]

السلام عليكم

جرب المرفق

بيانات المرحلة الابتدائية معدل.rar

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

الاستاذ ابو عيد 

شكرا على اهتمامكم 

هو فعلا المطلوب

تم تعديل أبريل 27, 2014 بواسطه مصطفى كامل

[الشهابي]

أخي العزيزالأستاذ  / مصطفى كامل 

وبعد حل الأستاذ /  أبو عيد  الرائع 

والذي من خلال حله فهمت المطلوب 

وإلا في البداية لم أفهم 

هذا حل آخر لإثراء الموضوع من خلال عمل قائمة مخصصة للترتيب حسب ورقة القوائم  يتم إضافتها من خلال الكود التالي بحيث يمكن الزيادة عليها في السطر التالي :

"كبير معلمين,معلم خبير,معلم اول ا,معلم اول,معلم,معلم بدون ك,معلم م عقد مميز,معلم م عقد,مدرس"

Sub ترتيب()
    
    ActiveWorkbook.Worksheets("ابتدائى").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ابتدائى").Sort.SortFields.Add Key:=Range( _
        "H11:H191"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "كبير معلمين,معلم خبير,معلم اول ا,معلم اول,معلم,معلم بدون ك,معلم م عقد مميز,معلم م عقد,مدرس" _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ابتدائى").Sort
        .SetRange Range("D11:T191")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
End Sub

تقديري واحترامي لكم ولأستاذنا سعيد بيرم وللأستاذ القدير / أبو عيد

والعفو 

بيانات المرحلة الابتدائية2010.rar

[أبو سجده]

اخى العزيز الفاضل // مصطفى كامل

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

اعتذرلتأخرى فى الرد كما أبلغت سيادتكم 

فعذرا أخى لسهوى عن تنفيذ طلبكم

كامل احترامى وتقديرى لسيادتكم

ولاخى الفاضل الاستاذ // ابوعيد

ولاخى الفاضل الاستاذ // الشهابى

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

تم تعديل أبريل 27, 2014 بواسطه سعيد بيرم

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

الاستاذ الشهابى 

شكرا على اهتمامكم 

هو فعلا المطلوب