VBA – Ordenar por nome ou por data

Se pretendermos ordenar um range por nome ou por data (ou por qualquer outro tipo, adaptando), podemos fazê.lo, por exemplo, com o seguinte código, associado a um botão de comando:

 

Sub Macro1()
‘
‘ Macro1 Macro
‘ Macro recorded by JRod
‘

‘

    Dim Choice As String
    Choice = InputBox(“Ordenar por:”)
    If Choice = “data” Then
        Range(“A2:B6”).Select
        Selection.Sort Key1:=Range(“A2”), Order1:=xlAscending, Header:=xlGuess, _
                       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                       DataOption1:=xlSortNormal
    ElseIf Choice = “nome” Then
        Range(“A2:B6”).Select
        Selection.Sort Key1:=Range(“B2”), Order1:=xlAscending, Header:=xlGuess, _
                       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                       DataOption1:=xlSortNormal
    Else
        Exit Sub
    End If
End Sub