Sub Ordina_Dati()
Sheets("Foglio1").Select
Range("A9:J509").Select
Selection.Sort Key1:=Range("F9"), Order1:=xlDescending, _
Key2:=Range("G9"), Order2:=xlAscending, _
Key3:=Range("H9"), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("A1").Select
End Sub
|