View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
joemeshuggah joemeshuggah is offline
external usenet poster
 
Posts: 96
Default sort entire range with exception of last row

Excellent....Thank you so much!!!

"JW" wrote:

On May 19, 4:17 pm, joemeshuggah
wrote:
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


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