Excel MACRO - Classificar com duplo clique na célula

[KaKaBeCuDo]

Bom Dia Galera!!! Gostaria de ajuda para  uma macro que rode a partir de duplo clique... ao clicar duplo roda sub para classificar em ordem crescente as linhas 2 até 50 (por exemplo). No anexo deixei mais ou menos a ideia a ser executada

Teste.xlsx

[Midori]

@KaKaBeCuDo  Cole o código no módulo da planilha,

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim R   As Range
    
    If Target.Row = 1 And Target.Offset(1) <> "" Then
        Set R = Range(Target.Offset(1), Target.End(xlDown))
            R.Sort R, xlAscending
    End If
End Sub

 

[KaKaBeCuDo]

22 minutos atrás, Midori disse:

@KaKaBeCuDo  Cole o código no módulo da planilha,

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim R   As Range
    
    If Target.Row = 1 And Target.Offset(1) <> "" Then
     Set R = Range(Target.Offset(1), Target.End(xlDown))
        R.Sort R, xlAscending
    End If
End Sub

 

Excelente Midori!! E seu eu quiser classificar *apenas* as linhas de 4 a 43 da coluna que der o duplo clique no nome?

 

[Midori]

@KaKaBeCuDo É só mudar a atribuição de R para,

 

Set R = Range(Target.Offset(3), Target.Offset(42))

 

[KaKaBeCuDo]

3 minutos atrás, Midori disse:

@KaKaBeCuDo É só mudar a atribuição de R para,

 

Set R = Range(Target.Offset(3), Target.Offset(42))

 

PERFEITO!! Muito obrigado