Sorting left to right programatically

  • Thread starter Thread starter jayklmno
  • Start date Start date
J

jayklmno

I can record the following macro...

Columns("AY:BE").Select
Selection.Sort Key1:=Range("AY1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal

but I need the starting and end points of the sort to vary. When I assign
variables to the...

AY = colS
BE = colE
last row = endrow


Range(Cells(1, colS), Cells(colE, EndRow)).Sort
Key1:=Sheets(1).Range(Cells(1, colS)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal


When this runs i get a Run Time Error 1004... so something's not pointing to
the right cell... what am I doing wrong?
 
Range(Cells(1, colS), Cells(colE, EndRow)).Sort _
Key1:=Sheets(1).Cells(1, colS), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
 
hi
if everything is properly dim'ed then change this line
Range(Cells(1, colS), Cells(colE, EndRow)).Sort
to
Range(Cells(1, colS), Cells(EndRow, colE)).Sort

should work then

regards
FSt1
 
Try this:

colS = Columns("AY").Column
colE = Columns("BE").Column
EndRow = Range("AY65536").End(xlUp).Row
 
Back
Top