How do I write a Macro to sort a row from left to right?

Steveo1

New Member
Joined
Nov 15, 2005
Messages
1
I am trying to record a macro to repeat the task of sorting a row of dates from left to right, but I need to move to the next row down and repeat the macro.. and so on. Any help?
 

Some videos you may like

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"

Von Pookie

MrExcel MVP
Joined
Feb 17, 2002
Messages
13,686
This seems to work for me. In this example, columns A:E contain the data to be sorted for each row:

Code:
Sub Macro1()
Dim LastRow As Long, i As Long

LastRow = Range("A65536").End(xlUp).Row

For i = 1 To LastRow
    Range(Cells(i, "A"), Cells(i, "E")).Sort Key1:=Cells(i, "A"), _
    Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
    MatchCase:=False, Orientation:=xlLeftToRight, _
    DataOption1:=xlSortNormal
Next i

End Sub
 

Von Pookie

MrExcel MVP
Joined
Feb 17, 2002
Messages
13,686
Unfortunately, no. I don't have a copy of 2000 available to test it on to find out.
 

Scott Huish

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,958
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
Try it like this:

Code:
Sub Macro1() 
Dim LastRow As Long, i As Long 

LastRow = Range("A65536").End(xlUp).Row 

For i = 1 To LastRow 
    Range(Cells(i, "A"), Cells(i, "E")).Sort Key1:=Cells(i, "A"), _ 
    Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _ 
    MatchCase:=False, Orientation:=xlLeftToRight
Next i 

End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,118,229
Messages
5,571,019
Members
412,354
Latest member
Stj99
Top