auto sort worksheet by date

**kcrush** · 11-23-2011, 12:08 PM

Hi,
I am trying to have excel autimatically sort a worksheet with columns A-F by the dates in column E, oldest to newest. I want to be able to add information in new rows and have it sort with the rest of the worksheet when I save.

Thanks

**Domski** · 11-23-2011, 12:13 PM

Try this (change sheet name):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Sheets("Sheet1").Range("A1").CurrentRegion.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers

End Sub

The code needs to go on the ThisWorkbook page of your workbook's VBA project.

Dom

**kcrush** · 11-23-2011, 12:28 PM

Thanks so much!

**kcrush** · 02-02-2012, 01:34 PM

I also would like to make it so when I enter any data in, it automatically copies to sheet2, but I don't want sheet 2 to auto sort column E as sheet1 does.

Can someone help me out with this?