I am trying to auto sort a table by date,
I am putting the sort code into a module then calling on the sheet page where the table is located.
my call is:
Private Sub Worksheet_Change(ByVal Target As Range)
Call AutoUpdater
End Sub
my Module code it:
Option Explicit
Sub AutoUpdater(ByVal Target As Range)
On Error Resume Next
If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("E14").Sort Key1:=Range("E15"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer
Bookmarks