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 |
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/ |
All times are GMT +1. The time now is 05:25 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com