Excel VBA: sort each row in selection

Question

I'm trying to sort each row in selection. Example:

before sorting:

8 3 17
2 9 4
5 3 8

after sorting:

3 8 17
2 4 9
3 5 8

I wrote this code, but it not works:

Public Sub SortByString()
Dim row As Range
For Each row In Selection.Rows
    row.Sort Key1:=row, Order1:=xlAscending, Orientation:=xlSortColumns
Next row
End Sub

I'm newbie in VBA. Than I doing wrong? Please help.

Doug Glancy · Accepted Answer · 2013-03-02 15:27:19Z

5

The issue is with your Orientation parameter. It should be either xlSortRows or xlLeftToRight:

row.Sort Key1:=row, Order1:=xlAscending, Orientation:=xlSortRows

or

row.Sort Key1:=row, Order1:=xlAscending, Orientation:=xlLeftToRight

The first one makes sense, as you are actually sorting the rows. The second is what I get with the macro recorder.

edited Mar 2, 2013 at 15:27

answered Mar 2, 2013 at 15:17

Doug Glancy

27.5k6 gold badges72 silver badges118 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Excel VBA: sort each row in selection

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related