- Codice: Seleziona tutto
Range("G14:O17").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H14"), Order1:=xlDescending, Key2:=Range( _
"O14"), Order2:=xlDescending, Key3:=Range("M14"), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
- Codice: Seleziona tutto
Range("G14:O17").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H14"), Order1:=xlDescending, Key2:=Range( _
"O14"), Order2:=xlDescending, Key3:=Range("M14"), Order3:=xlDescending, _
Key4:=Range("N14"), Order4:=xlDescending, Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal, DataOption3:=xlSortNormal, DataOption4:=xlSortNormal
Grazie per le risposte e visto che siamo prossimi a Natale auguro un sereno Natale a tutti.