Boa tarde!!

Veja:
http://peltiertech.com/referencing-pivo ... es-in-vba/
http://www.databison.com/pivot-table-vb ... -in-excel/

Att

Boa tarde,

Não consegui achar nenhum macro que resolvesse meu problema (talvez por desconhecimento meu).

Tenho diversos campos inseridos no rótulo de linha da tabela dinâmica, gostaria de retirar todos com macro (limpando assim o rotulo de linhas).

Att,

Boa tarde!!

Poderia postar seu arquivo modelo?

Att

Estou enviando um arquivo apenas como exemplo.

Nesta tabela dinamica da aba Plan1, gostaria de retirar os campos "Nome do Aluno" e "Final" do rotulo de linha da tabela dinamica por macro.

Repare que não necessariamente estes vão ser os campos que estarão no rotulo de linhas, gostaria de limpar o rotulo de linhas independente dos campos que estiverem inseridos.

Att,

Envio novamente o arquivo sem macro, para não criar suspeitas.

So nao entendi o pq nao retirar manualmente

Para o exemplo apresentado

Sub LimparRotulo()

    ActiveSheet.PivotTables("Tabela dinâmica3").PivotFields("Nome Aluno").Orientation = xlHidden
    ActiveSheet.PivotTables("Tabela dinâmica3").PivotFields("Final").Orientation = xlHidden
End Sub

Agradeço mas,

Este arquivo é só de exemplo. Na prática é um arquivo muito mais complexo, que irá para o cliente e deve ser automático. Este código não me ajuda...

O exemplo deve sr identico ao original, em estrutura e formato..

Nao entendi ainda pq nao retirar os rotulos da TD manualmente.

Boa tarde!!

Sub ConformeIndiquei()
'Fonte: http://www.databison.com/pivot-table-vba-vba-to-read-modify-a-pivot-table-in-excel/
    For Each pvt In ActiveSheet.PivotTables
        For Each pvtfld In pvt.PivotFields
            pvtfld.Orientation = xlHidden
        Next pvtfld
    Next pvt
    
'Aqui reinsira os campos nos rótulos desejados
    
End Sub

Att

Como o exemplo é igual ao original vc vai precisar ajustar

Sub LimparRotulo()

Dim WS As Worksheet


Set WS = Sheets("Plan1")

 With WS.PivotTables("Tabela dinâmica3")
 
 .PivotFields("Nome Aluno").Orientation = xlHidden
 .PivotFields("Final").Orientation = xlHidden
 
 End With

End Sub

Esse código não me ajuda,

Ele retira o filtro também, eu gostaria de um código que apenas retire o rótulo de linha.

Este código não me ajuda, ele também retira os filtros.

Gostaria de um código que retirasse apenas o rotulo de linha da tabela dinamica.

Att,

Este código nao me ajuda, ele retira todos os campos.

Gostaria de um código que retirasse apenas os campos do rotulo de linha da tabela dinamica.

Att,

Boa tarde!!

Já tentou algo assim

Sub ConformeIndiquei()
'Fonte: http://www.databison.com/pivot-table-vba-vba-to-read-modify-a-pivot-table-in-excel/
    For Each pvt In ActiveSheet.PivotTables
        For Each pvtfld In pvt.PivotFields
            pvtfld.Orientation = xlHidden
        Next pvtfld
    Next pvt
    
'Aqui reinsira os campos nos rótulos desejados
ActiveSheet.PivotTables("Tabela dinâmica3").AddDataField ActiveSheet. _
        PivotTables("Tabela dinâmica3").PivotFields("Nota"), "Contagem de Nota", _
        xlCount
    ActiveSheet.PivotTables("Tabela dinâmica3").AddDataField ActiveSheet. _
        PivotTables("Tabela dinâmica3").PivotFields("Nota 2"), "Contagem de Nota 2", _
        xlCount
    With ActiveSheet.PivotTables("Tabela dinâmica3").PivotFields("Contagem de Nota" _
        )
        .Caption = "Média de Nota"
        .Function = xlAverage
    End With
    With ActiveSheet.PivotTables("Tabela dinâmica3").PivotFields( _
        "Contagem de Nota 2")
        .Caption = "Média de Nota 2"
        .Function = xlAverage
    End With
End Sub

Att