Date format with sorting

[shimaa01234]

Can you format, this date dd/ mm/yyyy & The sort of small to large, in one formula

08/05/2014

08/06/2014

08/07/2014

08/10/2014

08/11/2014

08/12/2014

08/13/2014

08/18/2014

08/19/2014

08/20/2014

08/03/2014

08/04/2014

08/06/2014

08/13/2014

08/19/2014

08/20/2014

<colgroup><col></colgroup><tbody>
</tbody>

 

[shimaa01234]

Okay, no problem, although the dates in column "A"،& My sheet named "Sheet1"

 

[Arithos]

Sub FormatAndSort()
    Columns([COLOR=#ff0000]"A:A"[/COLOR]).Select
    Selection.NumberFormat = "dd/mm/yyyy"
    ActiveWorkbook.Worksheets("[COLOR=#ff0000]Sheet1[/COLOR]").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("[COLOR=#ff0000]Sheet1[/COLOR]").Sort.SortFields.Add Key:=Range([COLOR=#ff0000]"A1"[/COLOR]), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets([COLOR=#ff0000]"Sheet1"[/COLOR]).Sort
         .SetRange Range([COLOR=#ff0000]"a1"[/COLOR]).Resize(Cells(Rows.Count, 1).End(xlUp).Row, [COLOR=#ff0000]1[/COLOR])  
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

This would be the one you should use then.

If this gives you the wrong sort, it might be because some of your dates have different EU/US formats, I know this is an issue for some people. Atleast for me with an European version. There are some difficulties there.

if you look at what the cell contains (you select it and look at the value, and not its format) what does it say. "08/18/2014" or "08.18.2014" ?

Let me know how this works, should not return an error now atleast, you still had some "H" column in the code you sent me that contained an error.

 

[shimaa01234]

I'm sorry -Still given a "Error"
Give me, "Run time error - 438"

 

[Arithos]

And I can assume its the same line giving the error? (Your worksheet might have something i column 1 I am not aware. (headers are accounted for, but something else I do not know about?) I just paste the data you posted in col"A", and run it.

First off tho, can you do the job manually? I mean, do what you want, just the slow way, and it works?

If that is the case, why not just record what you are doing, and when selecting ranges(areas in the spreadsheet) use "ctrl+shift+arrowkeys" to do so.

Or are you not able to get it done manually?