How to sort rows by column A "Jun 10 2011" or "Mar 01 2010"

[buckwheat4948]

How do I sort the rows 11 to 65535 by the data in Column A that has the format "Jun 10 2011" or "Mar 01 2010" or "Apr 20 2011" from oldest on top to newest on bottom.

I currently use the following, but it sorts by first letter putting 'Jun 10 2011 before "Mar 10 2010":

Dim StRw As Integer, EndRw As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Set NewSheet = ThisWorkbook.Sheets(i)
NewSheet.Activate
With NewSheet
StRw = 11 ' Starting Row
EndRw = Range("E65500").End(xlUp).Row
Rows(StRw & ":" & EndRw).Select
Selection.Sort Key1:=Range("A11"), Order1:=xlAscending
End With
Next i

Thanks!

 

[Jonmo1]

Welcome to the board..

It sounds like your dates are not really dates, just text strings that look like dates...

Do you want to keep the dates as text, or would you want a permanent conversion to real dates?
If you convert them to real dates, they will sort normally as you expect them to.

 

[buckwheat4948]

i would prefer to keep the format the way it is, thanks.

 

[Jonmo1]

Best option I think would be to create an additional column that represents a real date based on the string in column A, then sort on that column..

Say your dates are in column A
And you have an available column B

Highlight column A
Click Data - Text To Columns
Choose Deliminated
Click Next
Uncheck all boxes
Click Next
Choose Date - MDY

IMPORTANT - to keep existing data as is..
IN the Destination box, choose an available column, say B1

Click Finish.

You now have a new column with the same dates, but they are real dates and will sort as you expect them to.


Hope that helps.

 

[buckwheat4948]

Maybe ill try to change the format to a real date format.

Thanks for you help. I'll see how it goes and repost if i have a problem.