Please in future place your code within code tags - read the forum rules that explains how to use the code tags and our forum rules.
Place this code into a module and run the macro called runSort - it will run the sort every 1 second continuously until you close the workbook.
Sub runSort()
Application.OnTime Now + TimeValue("00:00:01"), "sortinoplusab"
End Sub
Sub sortinoplusab()
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Add Key:=Range("B3"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sortino").Sort
.SetRange Range("A3:X228")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Add Key:=Range("AC3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sortino").Sort
.SetRange Range("AB3:AY228")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Add Key:=Range("BI3"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sortino").Sort
.SetRange Range("BB3:BV203")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sortino").Sort.SortFields.Add Key:=Range("CN3"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sortino").Sort
.SetRange Range("BX3:CN203")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
runSort
End Sub
Bookmarks