G
Guest
Not knowing any better, I took the recorded code for a 3 column sort and
tried to turn it into a 4 column sort. Got run time 1004 object error. Code
is below.
Is it possible to do what I'm trying this way? I'd rather not have to select
different ranges of cells and do a 3 column sort, but I may have to.
So, have I made an error in the code, or is it just not possible?
Thanks.
Sub zsortbcda()
Application.ScreenUpdating = False
Columns("A").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, _
Key2:=Range("C1"), Order2:=xlAscending, _
Key3:=Range("D1"), Order3:=xlAscending, _
Key4:=Range("A1"), Order4:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal, DataOption4:=xlSortNormal
Range("A1").Select
Application.ScreenUpdating = True
End Sub
tried to turn it into a 4 column sort. Got run time 1004 object error. Code
is below.
Is it possible to do what I'm trying this way? I'd rather not have to select
different ranges of cells and do a 3 column sort, but I may have to.
So, have I made an error in the code, or is it just not possible?
Thanks.
Sub zsortbcda()
Application.ScreenUpdating = False
Columns("A").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, _
Key2:=Range("C1"), Order2:=xlAscending, _
Key3:=Range("D1"), Order3:=xlAscending, _
Key4:=Range("A1"), Order4:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal, DataOption4:=xlSortNormal
Range("A1").Select
Application.ScreenUpdating = True
End Sub