sorting column and expanding selection

[tanyaleblanc]

just looking to sort column D in ascending order, but I need all the columns to sort as well. When I use this code, its just sorting column d and the rest of the columns are mixed up and my data is now incorrect.

I do have a header in row 2 that I don't want included in the sort. I just want to sort everything from D3 down and expand selection so everything gets sorted correctly

Range("D3:d500").Sort Key1:=Range("d3"), Order1:=xlAscending, Header:=xlNo

 

[MARK858]

all the columns

What columns?

 

[tanyaleblanc]

the file has columns from A to T, row 2 is the headers, I want to sort by column D (acct#), but all the other columns need to expand to sort those too

for example. I want to sort the below by column D, but all the other data in the other columns need to be sorted with it so that each row has the correct data within it.

Value Combo	Value Acct#	Cost Centre	Acct #	Name	type	PC	Gross Amt	Comment	SL
10494293	1049429	1	1049429	JOAN M JOHNSTON	1	191	$470.20	Payout	3
10494293	1049429	1	1049429	JOAN M JOHNSTON	1	214	($24.04)	Payout	3
10876352	1087635	1	1087635	WILMA SMITH	1	191	$330.00	Payout	2

<colgroup><col span="2"><col><col><col><col span="2"><col><col><col></colgroup><tbody>
</tbody>

 

[MARK858]

If it is just A to T then it is just

Range("A3:T500").Sort Key1:=Range("d3"), Order1:=xlAscending, Header:=xlNo

or

Range("A2:T500").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes

Or if an unknown number of columns then

Range(Cells(2, "A"), Cells(500, Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column)).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes

 

[tanyaleblanc]

worked perfect, tks

 

[MARK858]

You're welcome

 

[Anne Troy]

If it is just A to T then it is just

Range("A3:T500").Sort Key1:=Range("d3"), Order1:=xlAscending, Header:=xlNo

or

Range("A2:T500").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes

Or if an unknown number of columns then

Range(Cells(2, "A"), Cells(500, Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column)).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes

Thank so much for letting me yoink your code!