none
VBA para classificação de planilha excel RRS feed

  • Pergunta

  • Bom dia, 

    Tenho uma planilha e nela um codigo de vba para classificação abaixo, preciso acrescentar mais um critério:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        Dim X As Integer
            If Not Intersect(Target, Me.Range("c8:R8")) Is Nothing Then
        X = ActiveCell.Column
        Range("c9:r1000").Sort Key1:=Cells(9, X), Order1:=xlAscending
       
        End If
     
           
        End Sub

    Esse código funciona bem, clasifica a planilha de acordo a coluna que eu clicar, porém gostaria de acrescentar mais um critério. Exemplo, clicando na coluna "R" por exemplo, classifica primeiro a coluna "R", deixando a Coluna "D" em ordem crescdente. Grato.

    segunda-feira, 21 de dezembro de 2020 14:12