Sort from row 4 down

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Desert Piranha - 25 Jan 2006 01:28 GMT

Hi all,

Why won't this sort the range below row 3, or in other words,
the first 3 rows have data, so the sort will start in row 4 and go
down.

Columns("A:J").Select
Selection.Sort _
Key1:=Range("A4"), Order1:=xlAscending, _
Key2:=Range("C4"), Order2:=xlAscending, _
Key3:=Range("B4"), Order3:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

I thought setting the range would start at row 4 but guess not.

Signature

Desert Piranha

Reply to this Message

Norman Jones - 25 Jan 2006 02:00 GMT

Hi Desert Piranha,

Try :

'=============>>
Public Sub Tester()
Dim rng As Range

Set rng = Intersect(Columns("A:J"), ActiveSheet.UsedRange)

Set rng = rng.Offset(3). _
Resize(rng.Rows.Count - 3, rng.Columns.Count)

rng.Sort _
Key1:=Range("A4"), Order1:=xlAscending, _
Key2:=Range("C4"), Order2:=xlAscending, _
Key3:=Range("B4"), Order3:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

End Sub
'<<=============

---
Regards,
Norman

> Hi all,
>
[quoted text clipped - 11 lines]
>
> I thought setting the range would start at row 4 but guess not.

Reply to this Message

Desert Piranha - 25 Jan 2006 03:24 GMT

Norman Jones Wrote:

> Hi Desert Piranha,
>
[quoted text clipped - 53 lines]
> http://www.excelforum.com/showthread.php?threadid=504718
> >Hi Norman,

Thx much, works fine, now to try to finish this project before
daylight.

Thx again Norman

Signature

Desert Piranha

Reply to this Message