Macro in excel to sort values

[Hernan_g_f]

Dear all,

I have a range: Column(A14:A74) with numbers. I want to create a macro so the column will be sort from lesser to upper values. How can I do it?

Regards,
Hernán

 

[vmjan02]

Try this

Sub SortColRangeAsc()
    Dim ws As Worksheet
    Dim rng As Range

[B]' ensure you enter your sheet name[/B]
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    [B]' As per requirement Range [/B]
    Set rng = ws.Range("A14:A74")

    ' Perform the sort
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=rng, Order:=xlAscending
        .SetRange rng
        .Header = xlNo
        .Apply
    End With

[B]'You can disable the if you need[/B]
    MsgBox "Column A14:A74 has been sorted in ascending order!", vbInformation
End Sub

 

[Hernan_g_f]

Thank you very mucha

Best,
Hernán

Try this

Sub SortColRangeAsc()
    Dim ws As Worksheet
    Dim rng As Range

[B]' ensure you enter your sheet name[/B]
    Set ws = ThisWorkbook.Sheets("Sheet1")

    [B]' As per requirement Range [/B]
    Set rng = ws.Range("A14:A74")

    ' Perform the sort
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=rng, Order:=xlAscending
        .SetRange rng
        .Header = xlNo
        .Apply
    End With

[B]'You can disable the if you need[/B]
    MsgBox "Column A14:A74 has been sorted in ascending order!", vbInformation
End Sub

 

[vmjan02]

@Hernan_g_f you are welcome.