so?
Private Sub CommandButton5_Click()
Dim tbl As Excel.ListObject
Set tbl = ActiveWorkbook.Worksheets("XML PowerQuery").ListObjects(1)
With tbl.Sort
.SortFields.Clear
.SortFields.Add2 Key:=tbl.ListColumns("systemdate").Range, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|