Is not sorting

  • Thread starter Thread starter Gisela
  • Start date Start date
G

Gisela

I'm new in macro programming and it is not sorting. Can someone help me?

This is the code:

SortData:

'Sort Data worksheet
Dim myrange As Range
Dim LastRow As Variant

Worksheets("Data").Select

'Establish range for sort

'Get the last row of worksheet Data
LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

Set myrange = Range("B10:S" & LastRow)

'Sorts ascending by Section ID ("H10")

With myrange
.Sort Key1:=Range("H10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
 
Hmm, your macro is sorting for me. You might try changing the part with:

Header:=xlGuess
to
Header:=xlNo 'or xlYes, depending on if row 10 is headers or not
 
'Sort Data worksheet
Dim myrange As Range
Dim LastRow As Variant

with Worksheets("Data")
'Establish range for sort
'Get the last row of worksheet Data
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Set myrange = .Range("B10:S" & LastRow)

'Sorts ascending by Section ID ("H10")

With myrange
.Sort Key1:=.columns(7), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End With

I would never let excel guess if my data had headers--if it's my data, I should
know and specify it.

If this doesn't help, you should explain how the sort fails. If you have simple
formulas like:

='Othersheet'!a99
in column H of the Data worksheet, then excel won't sort your data the way you
want.
 
Thanks! It worked.

Dave Peterson said:
'Sort Data worksheet
Dim myrange As Range
Dim LastRow As Variant

with Worksheets("Data")
'Establish range for sort
'Get the last row of worksheet Data
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Set myrange = .Range("B10:S" & LastRow)

'Sorts ascending by Section ID ("H10")

With myrange
.Sort Key1:=.columns(7), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End With

I would never let excel guess if my data had headers--if it's my data, I should
know and specify it.

If this doesn't help, you should explain how the sort fails. If you have simple
formulas like:

='Othersheet'!a99
in column H of the Data worksheet, then excel won't sort your data the way you
want.
Click to expand...
 
Back
Top