Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Worksheet_Change(ByVal Target As Range)
- ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort.SortFields.Clear
- ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort.SortFields. _
- Add Key:=Range("Table1[[#ALL],[Date]]"), SortOn:=xlSortOnValues, Order _
- :=xlAscending, DataOption:=xlSortNormal
- ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort.SortFields. _
- Add Key:=Range("Table1[[#All],[Time]]"), SortOn:=xlSortOnValues, Order _
- :=xlAscending, DataOption:=xlSortNormal
- If Not Intersect(Target, Range("Table1[[#All],[Associate]]")) Is Nothing Then
- With ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- End If
Add Comment
Please, Sign In to add comment