Private Sub Worksheet_Change(ByVal Target As Range)
Range("C6:AY1000").Sort Key1:=Range("C7"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C6:AY1000").Sort Key1:=Range("AP7"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
المشكلة ان الكود يبدأ الترتيب من c7 و ap7 اى من الصف الثانى للطلبة وليس من الصف الأول وممكن التعديل الى c6 و ap6