I need to sort an active sheet using the col of the active cell

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

My intent is to create a Sort Button that will read the Active Column for
sorting the ActiveSheet.
 
One way:
Sub SortByActiveCellColumn()
Selection.Sort Key1:=Cells(2, ActiveCell.Column), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
I assumed your data has headers. Also, you have to select the entire range
you want sorted before you run this macro. Post back if you want help with
refining this to work with what you actually have. HTH Otto
 
Otto Moehrbach said:
One way:
Sub SortByActiveCellColumn()
Selection.Sort Key1:=Cells(2, ActiveCell.Column), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
I assumed your data has headers. Also, you have to select the entire range
you want sorted before you run this macro. Post back if you want help with
refining this to work with what you actually have. HTH Otto



Thanks Otto
Click to expand...
That was just the clue I needed. All the other code is in place and working.
Thanks again
 
Back
Top