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.

[TABLE="width: 957"]
<colgroup><col span="2"><col><col><col><col span="2"><col><col><col></colgroup><tbody>[TR]
[TD]Value Combo [/TD]
[TD]Value Acct#[/TD]
[TD]Cost Centre[/TD]
[TD]Acct #[/TD]
[TD]Name[/TD]
[TD]type[/TD]
[TD]PC[/TD]
[TD]Gross Amt[/TD]
[TD]Comment[/TD]
[TD]SL[/TD]
[/TR]
[TR]
[TD]10494293[/TD]
[TD]1049429[/TD]
[TD="align: right"]1[/TD]
[TD]1049429 [/TD]
[TD]JOAN M JOHNSTON[/TD]
[TD]1[/TD]
[TD]191[/TD]
[TD]$470.20[/TD]
[TD]Payout[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD]10494293[/TD]
[TD]1049429[/TD]
[TD="align: right"]1[/TD]
[TD]1049429 [/TD]
[TD]JOAN M JOHNSTON[/TD]
[TD]1[/TD]
[TD]214[/TD]
[TD]($24.04)[/TD]
[TD]Payout[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD]10876352[/TD]
[TD]1087635[/TD]
[TD="align: right"]1[/TD]
[TD]1087635 [/TD]
[TD]WILMA SMITH[/TD]
[TD]1[/TD]
[TD]191[/TD]
[TD]$330.00[/TD]
[TD]Payout[/TD]
[TD="align: right"]2[/TD]
[/TR]
</tbody>[/TABLE]

 

[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!