VBA code to sort alphabetically

[Giancar]

Hi,

Could you please help me with a code that sort Range B2:B1027 from A to Z?
Sheet Name is "Viaggio"?

Then a different code that sort Range A2:A1027 from smallest to largest?
Sheet name is "Viaggio".

Thank you so much

 

[AlphaFrog]

Sub Sort_A()
    With Sheets("Viaggio")
        .Range("A2:A1027").Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    End With
End Sub

 

[Giancar]

It does not do what I would like.
Your first Macro sort range B2:B1027, but I want to keep the value of RANGE A2:A1027.
Let suppose I have this table.

A	B	C	D	E	F
2	DOMA	$9,000,000.00	150,000	98%	$24.00
3	DOMB	$12,000,000.00	178,000	90%	$42.00
4	DOMC	$18,000,000.00	220,000	86%	$28.00
5	DOMA	$4,200,000.00	36,000	94%	$40.00
6	DOMB	$8,000,000.00	120,000	86%	$36.00
7	DOMC	$5,400,000.00	132,000	80%	$49.00
8	DOMG	$2,000,000.00	58,000	81%	$39.00
9	DOMH	$3,000,000.00	40,000	85%	$29.00
10	DOMK	$6,000,000.00	85,000	82%	$56.00
11	DOMZ	$4,000,000.00	42,000	71%	$45.00

<tbody>
</tbody>

TThe result of your first Macro will be:

A	B	C	D	E	F
2	DOMA	$9,000,000.00	150,000	98%	$24.00
3	DOMA	$12,000,000.00	178,000	90%	$42.00
4	DOMB	$18,000,000.00	220,000	86%	$28.00
5	DOMC	$4,200,000.00	36,000	94%	$40.00

<tbody>
</tbody>

But I would like:

A	B	C	D	E	F
2	DOMA	$9,000,000.00	150,000	98%	$24.00
5	DOMA	$12,000,000.00	178,000	90%	$42.00
3	DOMB	$18,000,000.00	220,000	86%	$28.00
4	DOMC	$4,200,000.00	36,000	94%	$40.00

<tbody>
</tbody>

Then the 2nd Macro will sort A2:A1027 keeping the value of B2:D1027 (in this way I want to return to the starting table).

Thanks

 

[AlphaFrog]

This should sort rows based on columns A or B values.

Sub Sort_B()
    With Sheets("Viaggio").UsedRange
        .Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    End With
End Sub




Sub Sort_A()
    With Sheets("Viaggio").UsedRange
        .Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    End With
End Sub

 

[Googles]

[COLOR=darkblue]Sub[/COLOR] Sort_B()
    [COLOR=darkblue]With[/COLOR] Sheets("Viaggio")
        .Range("B2:B1027").Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]


[COLOR=darkblue]Sub[/COLOR] Sort_A()
    [COLOR=darkblue]With[/COLOR] Sheets("Viaggio")
        .Range("A2:A1027").Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] Sub

Hi AlphaFrog,
Good work.. A1:C1 to A4:C4 but all rows from A1 to H4
How about sort 3 merge ranges
Like so:

	A	B	C	D	E	F	G	H
1	Name 1	10	15	11	2	18
2	Name 2	5	16	14	61	19
3	Name 3	6	13	512	81	13
4	Name 4	0	10	11	10	16

<tbody>
</tbody>

thanks