Data sort VBA code

[kanelones]

Hi!

Can you help me guys to write a VBA code:

Need to select a range as I please, in any sheet , then sort it By "D " Column.

Tried many ways, can 't get it done.

Thanks as always!

 

[DanteAmor]

Try this options:

Sub sort_selection()
    Set datos = Selection
        datos.Sort key1:=Range("D1"), order1:=xlAscending, Header:=xlYes
End Sub

Sub sort_CurrentRange()
    Set datos = Range("A1").CurrentRegion
        datos.Sort key1:=Range("D1"), order1:=xlAscending, Header:=xlYes
End Sub

you can create a short-cut:
Press Alt-F11 to open the VBA editor. From the menu select Insert > Module. On the sheet that opens, paste the code previous.
Close the editor (press Alt-Q).
Press Alt + F8
Select Macro sort_selection
Press Options
Type a letter, for example: g
Press OK
Press Ok


Now press Control + g