Auto Sorting By Date

[acceptedpanda]

Greetings,

I'm at the end of my rope trying to create an auto sorting excel spreadsheet. I am using Excel 2013.

My active cells on the spreadsheet are A1-L126.

My Headers are:
A1-L1
A22-L22
A43-L43
A64-L64
A85-L85
A106-L106

I need cells A1-L21 to sort independently,
A22-L42 to sort independently, A43-L63 and so on for the rest of the sheet. I need all of the rows to sort by my E column which are all my dates.

I hope someone can help!

 

[acceptedpanda]

Greetings,

I'm at the end of my rope trying to create an auto sorting excel spreadsheet. I am using Excel 2013.

My active cells on the spreadsheet are A1-L126.

My Headers are:
A1-L1
A22-L22
A43-L43
A64-L64
A85-L85
A106-L106

I need cells A1-L21 to sort independently,
A22-L42 to sort independently, A43-L63 and so on for the rest of the sheet. I need all of the rows to sort by my E column which are all my dates.

I hope someone can help!

Ended up figuring it out with this:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("A1:L21").Sort Key1:=Range("E1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A22:L42").Sort Key1:=Range("E1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A43:L63").Sort Key1:=Range("E1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A64:L84").Sort Key1:=Range("E1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A85:L105").Sort Key1:=Range("E1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A106:L126").Sort Key1:=Range("E1"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub