Automatically sort by date

[shnickles]

Hey guys, I was doing some searching and I came across a few threads discussing this topic already. However, I'm entirely new to VBA and I don't know how to edit some of the suggested codes to fit my particular data.

I just want everything sorted by date (Column D) without having to re-sort every time I add a new item.

Let me know if y'all need any other info to help. Thanks in advance.

 

[My Aswer Is This]

Try this:
The range will sort when you change the value in column "E"
The range will be sorted by the values in column "D"

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
If Not Intersect(Target, Range("E3:E" & Lastrow)) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Range("C3:E" & Lastrow).Sort Key1:=Target.Offset(0, -1)
End If
End Sub

 

[My Aswer Is This]

The script runs when you change a value in column "E".

And it is assuming you only have 3 columns of data
If these assumptions are not true I need more details

 

[shnickles]

Try this:
The range will sort when you change the value in column "E"
The range will be sorted by the values in column "D"

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Thanks for your reply! I actually have four columns of data; I set up a code in column B to add a checkmark upon double-click:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Not Intersect(Target, Range("B3:B50")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = ChrW(&H2713) Then
    Target.ClearContents
    Cancel = True
Else
    Target.Value = ChrW(&H2713)
    Cancel = True
End If
End If
    Application.EnableEvents = True
End Sub

When I added your code, it only works for columns C-E. I tried edited it to include column B, but then the data will only sort if there actually is a checkmark added. It won't sort if I add a new item that isn't marked done.

 

[My Aswer Is This]

Try this

Now It should work.
The sort portion activates when you enter a value in column "E"
Not sure what your using the check mark portion for but it works.
Let me know if this meets your needs
My change script allows you to keep going down the sheet forever
Your portion with the checkbox stops at row 50. Not sure if you really wanted that or did not know about Lastrow

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
If Not Intersect(Target, Range("E3:E" & Lastrow)) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Range("B3:E" & Lastrow).Sort Key1:=Target.Offset(0, -1)
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
If Not Intersect(Target, Range("B3:B50")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = ChrW(&H2713) Then
    Target.ClearContents
    Cancel = True
Else
    Target.Value = ChrW(&H2713)
    Cancel = True
End If
End If
    Application.EnableEvents = True
End Sub

 

[shnickles]

Try this

Now It should work.
The sort portion activates when you enter a value in column "E"
Not sure what your using the check mark portion for but it works.
Let me know if this meets your needs
My change script allows you to keep going down the sheet forever
Your portion with the checkbox stops at row 50. Not sure if you really wanted that or did not know about Lastrow

Thanks so much! This worked perfectly.

(I'm just using the checkmarks to mark off items in a to-do list - I actually copied the code from another site and didn't know about Lastrow at all. Thanks!)

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Thanks so much! This worked perfectly.

(I'm just using the checkmarks to mark off items in a to-do list - I actually copied the code from another site and didn't know about Lastrow at all. Thanks!)