Why won't Excel sort these cells from left to right?

Brian F · Nov 22, 2016

[TABLE="width: 560"]
<colgroup><col width="50"><col width="51"><col width="51"><col width="51"><col width="51"><col width="51"><col width="51"><col width="51"><col width="51"><col width="51"><col width="51"></colgroup><tbody>[TR]
[TD="class: xl70, width: 51, align: center"] [TABLE="class: MsoTableGrid"]
<tbody>[TR]
[TD="width: 87"]

ZEBncRainFst

[/TD]
[TD="width: 94"]

ZEBncSavanna

[/TD]
[TD="width: 92"]

MPHwvPippin

[/TD]
[TD="width: 27"]

c

[/TD]
[TD="width: 27"]

c

[/TD]
[TD="width: 27"]

a

[/TD]
[TD="width: 28"]

b

[/TD]
[TD="width: 87"]

MPHfcBbbbb

[/TD]
[TD="width: 27"]

a

[/TD]
[TD="width: 31"]

Zz

[/TD]
[TD="width: 31"]

Zz

[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

Windows 10, Excel 2010, the macro runs, it just doesn't sort. I've tried it many times in every way I can think of and it won't sort. What's going on?

Sub Sort_LeftToRight()

Range("A1:AV11").Select
ActiveWorkbook.Worksheets("ProjectVsTask").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ProjectVsTask").Sort.SortFields.Add Key:=Range( _
"A1:A11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ProjectVsTask").Sort
.SetRange Range("A1:A11")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
End Sub

Brian F · Nov 22, 2016

This code runs to completion but does nothing.

Sub Sort_ProjectByTask4()

'Selection.FormatConditions.Delete

Range("U22:FN22").Select
ActiveWorkbook.Worksheets("ProjectVsTask").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ProjectVsTask").Sort.SortFields.Add Key:=Range( _
"U22:FN22"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ProjectVsTask").Sort
.SetRange Range("U22:FN22")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
'Call Conditionl_Format
End Sub

MARK858 · Nov 22, 2016

What happens with...

Code:

Sub Sort_ProjectByTask4()

    'Selection.FormatConditions.Delete

    ActiveWorkbook.Worksheets("ProjectVsTask").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ProjectVsTask").Sort.SortFields.Add Key:=Worksheets("ProjectVsTask").Range( _
                                                                        "U22"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                                                                   xlSortNormal
    With ActiveWorkbook.Worksheets("ProjectVsTask").Sort
        .SetRange Range("U22:FN22")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .Apply
    End With
    'Call Conditionl_Format
End Sub

Jonmo1 · Nov 22, 2016

The code works fine for me as you posted it..

The only suggestion I would have is to fully qualify the range references to include Sheet Names..
And it's not necessary to select the range in question

Code:

Sub Sort_ProjectByTask4()
Dim ws As Worksheet
'Selection.FormatConditions.Delete
Set ws = Worksheets("ProjectVsTask")
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=ws.Range("U22:FN22"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ws.Sort
    .SetRange ws.Range("U22:FN22")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlLeftToRight
    .Apply
End With
'Call Conditionl_Format
End Sub

Jonmo1 · Nov 22, 2016

Another suggestion, the Macro Recorder is your friend.

Use the Macro Recorder to record yourself doing the sort by hand.

Post the resulting code here.

Brian F · Nov 22, 2016

I have used the macro recorder several times making the code. I think I have a glitch in the document that is frustrating my efforts. I'm going to go back to an earlier version of the document and try Jonmo1's suggestion. Thank you all for your help

Why won't Excel sort these cells from left to right?

Brian F

Active Member

Brian F

Active Member

Excel Facts

MARK858

MrExcel MVP

Jonmo1

MrExcel MVP

Jonmo1

MrExcel MVP

Brian F

Active Member

Similar threads

Forum statistics

Share this page

Why won't Excel sort these cells from left to right?

Brian F

Active Member

Brian F

Active Member

Excel Facts

MARK858

MrExcel MVP

Jonmo1

MrExcel MVP

Jonmo1

MrExcel MVP

Brian F

Active Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock