Help with range

[gti_jobert]

I have the following (from record macro) to sort my data;

Please Login or Register  to view this content.

How do I modify the range so it lookk from "A1" to the last cell in sheet that contains data?

Thanks for your help!

[Ardus Petus]

Assuming row 1 and column A contains no emptycells:

dim lastcol as long
dim lastrow as long
lastrow = Range("A1",Cells(Rows.Count,"A")).end(xlup).row
lastcol = Range("A1"),Cells(1,Columns.Count)).End(xltoRignt).column
Range(cells(1,"A"),cells(lastrow,lastcol).Sort ...........


HTH
--
AP

"gti_jobert" <[email protected]> a
écrit dans le message de
news:[email protected]...
>
> I have the following (from record macro) to sort my data;
>
>
> Code:
> --------------------
>
> Columns("D:D").Select
> Range("A1:*Q1740*").Sort Key1:=Range("D1"), Order1:=xlAscending,
Header:= _
> xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
> DataOption1:=xlSortNormal
>
> --------------------
>
>
> How do I modify the range so it lookk from "A1" to the last cell in
> sheet that contains data?
>
> Thanks for your help!
>
>
> --
> gti_jobert
> ------------------------------------------------------------------------
> gti_jobert's Profile:
http://www.excelforum.com/member.php...o&userid=30634
> View this thread: http://www.excelforum.com/showthread...hreadid=518271
>