شئون عاملين

[جمال ابوبسنت]

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

الموجة صلاح.rar

[حمادة عمر]

جرب الماكرو التالي اخي الكريم

Sub Macro1()
    ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Add Key:=Range("G7:G211") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Add Key:=Range("K7:K211") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ورقة1").Sort
        .SetRange Range("A6:L211")
       .Header = xlYes
        .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
End Sub

 

تم تعديل أبريل 9, 2017 بواسطه حمادة عمر

[جمال ابوبسنت]

شكرا لك على المجخود لكن للاسف مش شغال معايا

ممكن لو سمحت تعمل تعديل على الشيت

[جمال ابوبسنت]

ياريت لو ممكن ادارج بحث بالاسم

[جمال ابوبسنت]

الف شكر تم عمل الميكرو وارجو من سيادتكم عمل بحث بالاسم مع تلوين الصف

[حمادة عمر]

تفضل المرفق اخي الكريم

 

الموجة صلاح بحث بفورم - تلوين الصف.rar

[جمال ابوبسنت]

الف مليون شكر لسانى عاجز عن الكلام

جعله الله فى ميزان حسناتك