Sub
Makro3()
Range(
"A3:F8"
).
Select
Selection.Sort Key1:=Range(
"A4"
), Order1:=xlAscending, Key2:=Range(
"E4"
) _
, Order2:=xlDescending, Key3:=Range(
"C4"
), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=
False
, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range(
"A17:F22"
).
Select
Selection.Sort Key1:=Range(
"A18"
), Order1:=xlAscending, Key2:=Range(
"E18"
_
), Order2:=xlDescending, Key3:=Range(
"C18"
), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=
False
, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Range(
"A31:F36"
).
Select
Selection.Sort Key1:=Range(
"A32"
), Order1:=xlAscending, Key2:=Range(
"E32"
_
), Order2:=xlDescending, Key3:=Range(
"C32"
), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=
False
, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
ActiveWindow.SmallScroll Down:=12
Range(
"A44:F47"
).
Select
Selection.Sort Key1:=Range(
"A45"
), Order1:=xlAscending, Key2:=Range(
"E45"
_
), Order2:=xlDescending, Key3:=Range(
"C45"
), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=
False
, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
ActiveWindow.SmallScroll Down:=-18
Range(
"A1"
).
Select
End
Sub