بعد اذن كل الاخوه يمكن اضافة كود الترتيب التالي قبل
End Sub
في الكود السابق :
'''''' Sort Ascending ''''''
Range("A3:E65536").Select
Selection.Sort Key1:=Range("c3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("G3:K65536").Select
Selection.Sort Key1:=Range("i3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("N3:R65536").Select
Selection.Sort Key1:=Range("p3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("T3:X65536").Select
Selection.Sort Key1:=Range("v3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("N2").Select
MsgBox " Comparison Has Been Completed ", vbInformation, "Confirmation"
و الله المستعان
و السلام عليكم و رحمة الله و بركاته