VBA Code to sort multiple columns

[KMH]

I am creating a To Do List and want to automatically sort by Due Date (Column B), then Energy / Focus Required (Column C) and then Task (Column A)

What code can I use that would automatically do this once data is entered in Column B.

TASK	DUE DATE	ENERGY / FOCUS REQUIRED	COMPLETED?
SEND DATASETS TO DASHBOARD CREATOR	12-Jul-23	LOW ENERGY / HIGH FOCUS
FINALIZE STAFF MEETING SLIDES AND HANDOUTS	13-Jul-23	LOW ENERGY / LOW FOCUS
RELIST DEFERRED APPLICATIONS FROM 29-JUN-2023	13-Jul-23	LOW ENERGY / LOW FOCUS
CLEAR FLAGGED EMAILS	14-Jul-23	LOW ENERGY / HIGH FOCUS
COMPLETE FINAL CHANGES TO WP FORMS AND SEND DRAFT TO SIAN AND SASKIA	14-Jul-23	HIGH ENERGY / HIGH FOCUS

 

[AlphaFrog]

Change it to sort each column as ascending or descending to suit...

Sub Sorter()
    
    Columns("A:D").Sort Key1:=Range("B2"), Order1:=xlAscending, _
                        Key2:=Range("C2"), Order2:=xlAscending, _
                        Key3:=Range("A2"), Order3:=xlAscending, _
                        Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub

 

[KMH]

Thanks. The code works but it's not sorting it automatically once I enter the date. Is there something else I have to do?

 

[AlphaFrog]

To install the code...

• Right-click on the sheet tab
• Select View Code from the pop-up context menu
• Paste the code below in the Worksheet code module

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target(1).Column = 2 And Target(1).Value <> Empty Then
            Columns("A:D").Sort Key1:=Range("B2"), Order1:=xlAscending, _
                                Key2:=Range("C2"), Order2:=xlAscending, _
                                Key3:=Range("A2"), Order3:=xlAscending, _
                                Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                                DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
    End If
End Sub

 

[KMH]

That did the trick! Thank you so much!