Sorting Table By Date with Macro

[Tech56]

Hello,

Does anyone know of code to sort a table column by oldest to newest date? This is on the Transactions sheet column B.

It will need to call the unprotect module in order to do the sort I think.

Sub SortDates()
Call Unprotect_Transactions
'Code to sort B19:B1000 oldest to newest dates please.


Call Protect_Transactions
End Sub

 

[Tech56]

I am sorry but I found a solution:

Sub SortDates()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim rng As Range
Call Unprotect_Transactions
    
    Set ws = ActiveSheet
    Set tbl = ws.ListObjects("Table1")
    Set rng = Range("Table1[Date]")
    
    With tbl.Sort
       .SortFields.Clear
       .SortFields.Add Key:=rng, SortOn:=xlSortOnValues, Order:=xlAscending
       .Header = xlYes
       .Apply
    End With
Call Protect_Transactions
End Sub

 

[herofox]

thanks

 

[Tech56]

I am hoping that others can benefit from this project.

 

[herofox]

IT SHOULD BE THAT