sort entire range with exception of last row

  • Thread starter Thread starter joemeshuggah
  • Start date Start date
J

joemeshuggah

is there a snipet of vba code that could be used to sort 3 columns of
variable length with the exception of the last row (last row used for totals).

The column range is a:k (rows, again, are variable). I am looking to sort
in this order:
column k descending
column j descending
column a ascending
 
is there a snipet of vba code that could be used to sort 3 columns of
variable length with the exception of the last row (last row used for totals).

The column range is a:k (rows, again, are variable).  I am looking to sort
in this order:
column k descending
column j descending
column a ascending
Click to expand...

Give this a shot. This is using column A to determine the last row.
Change is needed.

Sub try()
Dim lRow As Long
lRow = Cells(Rows.Count, "A").End(xlUp).Row - 1
Range("A2:K" & lRow).Sort _
Key1:=Range("K2"), Order1:=xlDescending, _
Key2:=Range("J2"), Order2:=xlDescending, _
Key3:=Range("A2"), Order3:=xlAscending
End Sub
 
Excellent....Thank you so much!!!

JW said:
Give this a shot. This is using column A to determine the last row.
Change is needed.

Sub try()
Dim lRow As Long
lRow = Cells(Rows.Count, "A").End(xlUp).Row - 1
Range("A2:K" & lRow).Sort _
Key1:=Range("K2"), Order1:=xlDescending, _
Key2:=Range("J2"), Order2:=xlDescending, _
Key3:=Range("A2"), Order3:=xlAscending
End Sub
Click to expand...
 
Back
Top