Selection sorting not working as expected on Excel - excel

Question

I need to just sort the selection I am making in one Excel Datasheet. This book is shared and I am trying to not to avoid the users to use the filter/sort option instead to use this small procedure.
I just tried in many ways to approach it: by macro record, by myself, googling and documenting in any possible way.
Input: Any selection possible in one Excel sheet with headers.
Expected ouptut: Alphabetical sorting of the selection.
Trial 1: Macro recording
Option Explicit
Sub Macro1()
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Add Key:=Range( _
"IV71"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Raw Data").Sort
.SetRange Range("IV72:IZ78")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
That code works, but obvious, I need to custom for my selection:
Option Explicit
Sub Macro1()
Dim MyRange as Range
Set MyRange = Selection
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Add Key:=MyRange, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Raw Data").Sort
.SetRange MyRange
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
On that one, I got a 1004 error on .Apply. So I modified to:
Option Explicit
Sub Macro1()
Dim MyRange as Range
Set MyRange = Selection
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Add Key:=MyRange, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Raw Data").Sort
.SetRange MyRange
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
ActiveWorkbook.Worksheets("Raw Data").Sort.Apply
End Sub
Same result: I got a 1004 error on .Apply
Then I remove the range declaration:
Option Explicit
Sub Macro1()
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Add Key:=Selection, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Raw Data").Sort
.SetRange Selection
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
ActiveWorkbook.Worksheets("Raw Data").Sort.Apply
End Sub
It is becoming weird... whatever options I try and checked it is reporting error 1004, directly it is not working or it is reporting that the section defined can not be on blank (when it is not). Idea 1 Idea 2 Idea 3 Idea 4 Idea 5 Idea 6 Check 1 Check 2 Check 3 Check 4
My only concern is if, maybe, as Selection is a object, maybe, setting it as range is failing.
One additional detail... This procedure is working just when I select one column... the problem is when I select 2 or more.
Anyone can help me?

Answer 1

I found a solution, anyhow, still I don´t know why I have this problem.
I can not order many columns in a range if I am not splitting in columns separately.
It is not the best one, but works... maybe need some cleaning.
Option Explicit
Sub Macro1()
Dim MyRange As Range
Dim FirstCol As Long
Dim LastCol As Long
Dim FirstRow As Long
Dim LastRow As Long
Dim SelAddress As String
Dim Aux As String
Set MyRange = Selection
SelAddress = Selection.Address
SelAddress = Mid(SelAddress, 2, Len(SelAddress) - InStr(1, SelAddress, "$", vbBinaryCompare))
Aux = Mid(SelAddress, 1, InStr(1, SelAddress, "$", vbBinaryCompare) - 1)
SelAddress = Mid(SelAddress, Len(Aux) + 2, Len(SelAddress) - Len(Aux))
Aux = Aux & Mid(SelAddress, 1, InStr(1, SelAddress, "$", vbBinaryCompare) - 2)
FirstCol = Range(Aux).Column
FirstRow = Range(Aux).Row
SelAddress = Mid(Selection.Address, Len(Aux) + 5, Len(SelAddress) - Len(Aux))
Aux = Mid(SelAddress, 1, InStr(1, SelAddress, "$", vbBinaryCompare) - 1)
SelAddress = Mid(SelAddress, Len(Aux) + 2, Len(SelAddress) - Len(Aux))
Aux = Aux & Mid(SelAddress, InStr(1, SelAddress, "$", vbBinaryCompare) + 1, Len(SelAddress))
LastCol = Range(Aux).Column
LastRow = Range(Aux).Row
For i = FirstCol To LastCol Step 1
Set MyRange = ActiveWorkbook.Worksheets("Raw Data").Range(Cells(FirstRow, i), Cells(LastRow, i))
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Add Key:=MyRange, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Raw Data").Sort
.SetRange MyRange
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next
End Sub
Hope it helps!