Sorting Issue - not working as expected

[kweaver]

I have a simple sheet that looks like this:

more data

And, I'm using the following code within other code in VBA:

 With ActiveSheet.Sort
     .SortFields.Add Key:=Range("J1"), Order:=xlAscending
     .SortFields.Add Key:=Range("C1"), Order:=xlAscending
     .SetRange Range("A1:V" & LRX)
     .Header = xlYes
     .Apply
End With

LRX is 39 in the sample case above.

I want the data to be ordered by DATE (J column), then ordered by the values in the C column, but I'm getting this strange result:

Even when I do the reverse sort keys, I still get a mix up of the data.

 

[Fluff]

I can't see anything strange about your result, it sorted by date & then by col C.

I would also suggest adding this line

 With ActiveSheet.Sort
     [COLOR=#ff0000].SortFields.Clear[/COLOR]
     .SortFields.Add Key:=Range("J1"), Order:=xlAscending

Otherwise you could end up with the situation where the workbook needs to be repaired.

 

[kweaver]

That did the trick. Thanks!!!

 

[Fluff]

You're welcome & thanks for the feedback