VBA - Sorting by columns

[Rasm]

I use the code below to sort my data by rows -- is there a way I can sort columns - based upon numeric values in a row --- I suppose I could transpose the data then sort - then transpose the data again





Public HeaderRow as long
Sub SortAscending()
Select Case ActiveCell.Row
Case HeaderRow
If IsEmpty(ActiveCell.Value) Then Exit Sub
Static MySortType As Integer
MySortType = xlAscending
ActiveCell.CurrentRegion.Offset(1).Sort Key1:=ActiveCell, Order1:=MySortType, Header:=xlYes
End Select
End Sub

[snb]

The sorting orientation is one of the sort method's arguments.
To sort by columns use:


Sub SortAscending()
Sheet1.Cells(1).CurrentRegion.Sort Sheet1.Cells(1), 2, , , , , , 1, , , 2
End Sub

[princ_wns]

Hi Rasm,

Here is my code that i had used in one of my project where i had to sort the Columns based on the date in their first cell value that were containing date in. As you see the range starts at G1 upto it last non blank cell to its right.Then this range got sorted on the behalf of the data in it . Date as data in my case.




Public Sub SortDate_Columns()

Dim rngDate As Range
Dim rngCell As Range
Dim intCol As Integer

With ThisWorkbook.Worksheets("TempCalls")
Set rngDate = .Range("G1", .Range("G1").End(xlToRight))
Set rngDate = Intersect(rngDate.CurrentRegion, rngDate.CurrentRegion.Offset(0, 6))
With rngDate
.Sort .Cells(1), 1, , , , , , xlYes, , , 2
End With
End With
Set rngDate = Nothing
Set rngCell = Nothing
End Sub