VBA to sort table by column B, then by column C

[gekco]

Hello Excel savants,

I am trying to get a table to sort by "Start Date" first, then sort by "Start Time". I have a macro that sorts by the date working, but would like to sort items on the same date by start time. Is that possible?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SalesTable As ListObject
Dim SortCol As Range

Set SalesTable = ActiveSheet.ListObjects("Table7")
Set SortCol = Range("Table7[Start Date]")

If Not Intersect(Target, SortCol) Is Nothing Then
    With SalesTable.Sort
        .SortFields.Clear
        .SortFields.Add Key:=SortCol, Order:=xlAscending
        .Header = xlYes
        .Apply
    End With
End If

End Sub

 

[rlv01]

I think you should be able to do it just by adding a 2nd sort key.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SalesTable As ListObject
Dim SortCol As Range, SortCol2 As Range

Set SalesTable = ActiveSheet.ListObjects("Table7")
Set SortCol = Range("Table7[Start Date]")
Set SortCol2 = Range("Table7[Start Time]")

If Not Intersect(Target, SortCol) Is Nothing Then
    With SalesTable.Sort
        .SortFields.Clear
        .SortFields.Add Key:=SortCol, Order:=xlAscending
        .SortFields.Add Key:=SortCol2, Order:=xlAscending
        .Header = xlYes
        .Apply
    End With
End If

End Sub

 

[gekco]

I figured that would be the answer, but as I am still learning how to utilize a lot of these functions in Excel, I could not figure how to make it work. Thank you so much, this worked for me.

 

[rlv01]

Glad it worked for you. Welcome to MrExcel.