sorting by date

[dpaton05]

I have a procedure to transfer some data from a table in one workbook to a table in another workbook. I want to be able to sort everything in the destination table by date in ascending order after the transfer but I am not sure of the vba code.

The date is in column A of both workbooks
The table where the data is going to be transferred to is called tblCosting
The workbook that contains tblCosting is called "costing tool.xlsm"

I think that is everything, let me know if I have forgot something.

Thanks,
Dave

 

[Yongle]

This will only work if the workbook has already been saved under that name BEFORE this macro is run

Amend to correct sheet name or if it is the first sheet in workbook ...

  Set Tbl = Workbooks("Costing Tool.xlsm").Sheets([COLOR=#ff0000]1[/COLOR]).ListObjects("tblCosting")

Sub Sort()
    Dim Tbl As ListObject, Col As Range
    
    Set [COLOR=#006400]Tbl[/COLOR] = Workbooks("Costing Tool.xlsm").Sheets("[I][COLOR=#ff0000]SheetName[/COLOR][/I]").ListObjects("tblCosting")
    Set [COLOR=#006400]Col[/COLOR] = Tbl.ListColumns(1).Range
    
    With [COLOR=#006400]Tbl[/COLOR].Sort
       .SortFields.Clear
       .SortFields.Add Key:=[COLOR=#006400]Col[/COLOR], SortOn:=xlSortOnValues, Order:=xlAscending
       .Header = xlYes
       .Apply
    End With
End Sub