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?
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.

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
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,164,546
Messages
5,838,034
Members
430,527
Latest member
MyFace2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top