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

[أبو يوسف النجار]

السلام عليكم

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

ولكم جزيل الشكر  

ترتيب صف.xlsx

[أ / محمد صالح]

عليكم السلام

إذا قمت بتسجيل ماكرو ستحصل على الكود

وبقليل من التعديلات تجعل الكود متغيرا في صف الننهاية الذي رمزه LR

هذا هو الكود

Sub girlsfirst()
Dim sh As Worksheet, lr As Long
Set sh = ActiveWorkbook.Worksheets("sheet")
lr = sh.Cells(Rows.Count, 3).End(3).Row
With sh.Sort
    .SortFields.Clear
    .SortFields.Add2 Key:=Range("L10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add2 Key:=Range("C10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("B7:X" & lr)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub
Sub boysfirst()
Dim sh As Worksheet, lr As Long
Set sh = ActiveWorkbook.Worksheets("sheet")
lr = sh.Cells(Rows.Count, 3).End(3).Row
With sh.Sort
    .SortFields.Clear
    .SortFields.Add2 Key:=Range("L10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    .SortFields.Add2 Key:=Range("C10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("B7:X" & lr)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

بالتوفيق

[عبدللرحيم]

تفضل هذا الكود للخبير الفاضل بن علية حاجي

Sub SortData()
  Range("b10:t1000").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
                Range("b10:t1000").Sort Key1:=Range("L5"), Order1:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
                ' xlDescending
End Sub