Need help with macro to auto sort based on two things

Hey everyone.

I have a question. I hope someone can help me out or point me in the right direction. I've tried searching for hours but can't seem to find anything.

I have an excel file at work with thousands of rows and about a dozen columns. I add rows and edit some continuously through out the day and would like to add a macro that basically runs every time there is a change in one column. From looking around I found a macro that can run as soon as a change in a specific column takes place but I have no idea on how to make it so that it sorts by 2 different criteria.

If anyone could help me, my goal is to have the macro run and sort by these two criteria:
1. Sort column G on values from A to Z. The title for Column G in the table is "Arrived".
and then
2. Sort column H on values from newest to oldest. The title for column H in the table is "ETA".


I am completely new here. I've only recored a few macros in the past so if someone could please help me out that would be AMAZING.

Thanks in advance!

Arkadi,

I'm sorry. I totally forgot to include that. I'm looking to have it run as soon as I make a change in column G ("Arrived")

Arkadi,

I'm sorry. I totally forgot to include that. I'm looking to have it run as soon as I make a change in column G ("Arrived")

daffodil11,

I ran the macro recorder and came up with the following after running the sort:

Sub Autosort()
'
' Autosort Macro
'
' Keyboard Shortcut: Option+Cmd+j
'
ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort.SortFields.Add _
Key:=Range("Table2[Arrived]"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort.SortFields.Add _
Key:=Range("Table2[ETA]"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Now, how exactly do I set up the change event trigger to run every time I make a change in column G?

daffodil11,

I ran the macro recorder and came up with the following after running the sort:

Sub Autosort()
'
' Autosort Macro
'
' Keyboard Shortcut: Option+Cmd+j
'
ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort.SortFields.Add _
Key:=Range("Table2[Arrived]"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort.SortFields.Add _
Key:=Range("Table2[ETA]"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Monthly").ListObjects("Table2").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Now, how exactly do I set up the change event trigger to run every time I make a change in column G?