Ordem de Classificação Automática da Tabela Dinâmica do Excel 2013

Question

Eu tenho uma pasta de trabalho que tem várias tabelas dinâmicas que calculam uma% de conformidade com base em linhas de dados. Toda vez que eu atualizar as linhas de dados e atualizar as tabelas dinâmicas, o% de conformidade será alterado. Eu quero que as tabelas dinâmicas sejam classificadas do menor% para o maior%. Atualmente, clico em todas as tabelas dinâmicas e as coloco em ordem de classificação toda vez que a pasta de trabalho é atualizada.

Existe uma maneira de definir as tabelas dinâmicas para SEMPRE classificar o valor de A a Z ao ser atualizado?

    

Answer 1

Se você quiser automatizar o Atualizar & Classifique o processo para todas as Tabelas Dinâmicas, sempre que ENTER ou UPDATE Data, o código VBA abaixo escrito pode ajudá-lo a fazê-lo.

    Private Sub Worksheet_Change(ByVal Target As Range)
     Dim Wrkst As Excel.Worksheet
     Dim PvtBL As Excel.PivotTable

     For Each Wrkst In Application.ActiveWorkbook.Worksheets
        For Each pvtBL In Wrkst.PivotTables
          PvtBL.RefreshTable
            ActiveWorkbook.PivotTables().PivotFields("Sales").AutoSort _
                xlAscending, ActiveSheet.PivotTables(). _
                PivotColumnAxis.PivotLines(1)
        Next pvtBL
    Next Wrkst
 End Sub

NB: Como o nome do campo não é especificado, estou assumindo o Sales como Field to Sort, você pode alterá-lo como e o que precisa.

Espero que isso ajude você.