Home |
Search |
Today's Posts |
#7
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Ok, Thanks
On Oct 9, 1:56 pm, Dave Peterson wrote: Dataoption# was added in xl2002. Remove it (and the preceding comma) and try it again. dan dungan wrote: I'm using excel 2000. This code fails at DataOption1--"variable not defined" Dan On Oct 9, 11:07 am, "Gary Keramidas" <GKeramidasATmsn.com wrote: watch for wordwrap: Sub test() Dim lastrow As Long Dim i As Long lastrow = Cells(Rows.Count, "B").End(xlUp).Row For i = 2 To lastrow With Range("B" & i, Range("B" & i).End(xlToRight)) .Sort Key1:=Range("B" & i), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _ DataOption1:=xlSortNormal End With Next End Sub -- Gary "LongBeachGuy" wrote in message ups.com... I am trying to make the following codes work for multiple rows. So far I can only do one row at a time. Please help. Range("B2").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _ DataOption1:=xlSortNormal How can I make "B2" a variable so that the sort can work it's way down the sheet? -- Dave Peterson |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Sorting rows left to right numerically | Excel Worksheet Functions | |||
sorting contents from right to left | Excel Worksheet Functions | |||
Sorting rows (left to right) programmatically | Excel Programming | |||
Sorting rows (left to right) programmatically | Excel Programming | |||
Sorting Right to Left | Excel Worksheet Functions |