مطلوب حل ترتيب القيم

[M.NHAKAMI]

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

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

تم تعديل نوفمبر 3, 2019 بواسطه M.NHAKAMI

[احمد بدره]

جرب هذا لعله يفي الغرض

 

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

[M.NHAKAMI]

ابدعت نعم الترتيب كما اريد لكن اريد اخي ان يكون الترتيب بشكل Activate من دون زر ماكرو كل ما اضفت البيانات يتغير الترتيب مباشره الكود اين انقله 

اشكرك اخي جدا فرج الله همك نقلت الكود في الشيت وكان فعال جدا اشكرك 

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A23:AA1022").Activate
    ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _
        "H23:H1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("نظام السرعه").Sort.SortFields.Add Key:=Range( _
        "E23:E1023"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("نظام السرعه").Sort
        .SetRange Range("A23:AA1023")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
      Range("E10").Activate
End Sub