مطلوب ترتيب الصفوف حسب قيمتين

[M.NHAKAMI]

السلام عليكم 

الكود الحالي يرتب القيم تنازلي حسب العمود مجموع الأخطاء فإذا تساوت قيمتان به يفرزهم حسب الاقل زمنا اريد تعديله إلى المطلوب بالاسفل

اريد تعديله الى ترتيب القيم تنازلي من الأصغر للأكبر حسب القيم الموجوده  في عمود مجموع الاخطاء والأقل زمن 

Sub sort()
Application.ScreenUpdating = True
 Range("B23:AA400").Activate
    ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _
        "H23:H400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _
        "E23:E400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("SPEED").sort
        .SetRange Range("B23:AA400")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
      Range("E10").Activate
      
   '   Application.Visible = False
     ' فرز الفرسان

End Sub

 

ترتيب القيم قيمتين.xlsm

[سليم حاصبيا]

استعمل هذا الماكرو الخفيف

الصف 21 يجب ان يكون فارغاً (حتى يتعرف الاكسل على الجدول بشكل صحيح)

كما يجب ان لا يكون خلايا فارغة بالجدول

Sub sort_me()
With Range("B22").CurrentRegion
      .sort Key1:=.Cells(1, 5), Order1:=1, _
     Key2:=.Cells(1, 8), Order2:=2, Header:=1
End With
End Sub

الملف مرفق

tartib.xlsm

[Zaher Rich]

إذا كان المطلوب هو الفرز حسب زمن الفارس من الأقل للأعلى وعند التشابه حسب أخطائه كذلك من الأقل للأعلى، فالمطلوب فقط عكس ترتيب الكود.. لاحظ المرفق

ترتيب القيم قيمتين.xlsm

[M.NHAKAMI]

أخي الكود هذا يفرز الترتيب حسب الاقل زمنا فاذا لم يكن فيه بيانات بالزمن يفرز البيانات حسب الاخطاء من الكبر للاصغر انا اريد الترتيب للاقل زمنا والاقل اخطاء معا شاكر لك مرورك الكود خفيف جدا كنت اتمنى لو يفي بالغرض 

 

المطلوب هو ترتيب القيم حسب الاقل زمنا والاقل أخطاء