Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Newbie : Help with sort via Excel code
I keep getting this error message with my spreadsheet and I do not
know what it means. Can anyone help. Error Message : The sort reference is not valid. Make sure that it's within the data you want to sort, and the first SORT BY box isn't the same or blank Below is my source code: For Each w In Worksheets w.Activate ActiveCell.SpecialCells(xlLastCell).Select lnRange = CInt(Mid(ActiveCell.Address(RowAbsolute:=False), 3, 5)) lcCellRange = "A3:G" & Trim(Str(lnRange - 1)) w.Range(lcCellRange).Select Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom w.Range("A1").Select Next w |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Newbie : Help with sort via Excel code
Try this whe
n = First Row to be sorted a = Last Row to be sorted c = the number of the column to sort by (ie. Column "C" = 3, Column "E" = 5 etc.) For x = n To a aNam = bp.Cells(x, 3).Value z = x For y = x + 1 To a If bp.Cells(y, 3).Value < aNam Then aNam = bp.Cells(y, 3).Value z = y End If Next y If z < x Then bp.Rows(z).Cut bp.Rows(x).Insert End If Next x --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Zip code sort is an Excel problem even when using the special cat. | Excel Discussion (Misc queries) | |||
Newbie Question: Data/Sort | New Users to Excel | |||
VBA Newbie: Help with Do Loop code | Excel Discussion (Misc queries) | |||
Sort (in Excel) from code in MSProject | Excel Programming | |||
Newbie : Autofilter thru code ? | Excel Programming |