Sorting in code

  • Thread starter Thread starter Ayo
  • Start date Start date
A

Ayo

Can someone help me with this? The first sort works fine but the second sort
gives me an errormessage: The sort reference is not valid. Make sure that
it's within the data you want to sort, and the first Sort Box isn't the same
of Blank.
What does that mean?

Sheets("Sheet1").Select
ClastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row
ActiveSheet.Range("D2:G" & ClastRow).Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D2").Select

Sheets("BulkUploadReport 1 ").Select
ClastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.Range("A2:O" & ClastRow).Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B2").Select
 
This is how IK do my sorts and never have any problems

with Sheets("Sheet1")
ClastRow = .Cells(Rows.Count, "D").End(xlUp).Row
.Range("D2:G" & ClastRow).Sort _
Key1:=.Range("D2"), _
Order1:=xlAscending, _
Header:=xlGuess
end with

with Sheets("BulkUploadReport 1 ")
ClastRow = .Cells(Rows.Count, "B").End(xlUp).Row
.Range("A2:O" & ClastRow).Sort _
Key1:=.Range("B2"), _
Order1:=xlAscending, _
Header:=xlGuess
end with
 
No. there are no mere cells. If you don't mind I can send you the file and
maybe you can figure it out. It is a 365KB file.
 
Back
Top