إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته
محتاج اعدل في هذا الكود
بحيث يتم الترتيب رقم 1 أولا ثم رقم 2
بدلا من الذكور أولا ثم الإناث
lr = Cells(Rows.Count, 2).End(xlUp).Row
ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("H3:H" & lr) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("الصف الثالث").Sort.SortFields.Add Key:=Range("C3:C" & lr) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("الصف الثالث").Sort
.SetRange Range("B3:Q" & lr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With