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

[Steveo1]

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?

 

[Von Pookie]

This seems to work for me. In this example, columns A:E contain the data to be sorted for each row:

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

 

[cerebus]

hi, do you know how to make that macro work for 2000?

 

[Von Pookie]

Unfortunately, no. I don't have a copy of 2000 available to test it on to find out.

 

[Scott Huish]

Try it like this:

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