Boa tarde Artzn,

Já pensou criar uma Macro com o Gravador e depois "limpar" o código que você gerou?

Disponibilize uma cópia do arquivo, fica mais fácil de tentar ajudar.

Sim bruno,

O problema e que com o gravador ele cria todas as possibilidades que eu tenho e coloca false, sendo que essas possibilidades sao dinamicas....

Meu código é essse, além do filtro por gerencia, precisava de um filtro por COS, porém nesse de COS preciso filtrar dois diferentes.

'    Sheets("Base_Abertos").Select
'    Range("Tabela_Consulta_de_Banco_Porta_Abertos[[#Headers],[GERENCIA]]").Select
'    Range(Selection, Selection.End(xlDown)).Select
'    Range(Selection, Selection.End(xlToLeft)).Select
'    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
'        "Tabela_Consulta_de_Banco_Porta_Abertos", Version:=xlPivotTableVersion15). _
'        CreatePivotTable TableDestination:="Dinamicas!R3C17", TableName:= _
'        "Tabela5", DefaultVersion:=xlPivotTableVersion15
'    Sheets("Dinamicas").Select
'    Cells(3, 17).Select
'    With ActiveSheet.PivotTables("Tabela5").PivotFields("GERENCIA")
'        .Orientation = xlPageField
'        .Position = 1
'    End With
'        With ActiveSheet.PivotTables("Tabela5").PivotFields("COS_ATUAL")
'        .Orientation = xlPageField
'        .Position = 1
'    End With
'         With ActiveSheet.PivotTables("Tabela5").PivotFields("PRIORIDADE_BA")
'        .Orientation = xlPageField
'        .Position = 1
'    End With
'    With ActiveSheet.PivotTables("Tabela5").PivotFields("Faixa Tempo")
'        .Orientation = xlRowField
'        .Position = 1
'    End With
'    ActiveSheet.PivotTables("Tabela5").AddDataField ActiveSheet.PivotTables( _
'        "Tabela5").PivotFields("NUM_DOCUMENTO"), "Soma de NUM_DOCUMENTO", xlSum
'    With ActiveSheet.PivotTables("Tabela5").PivotFields("Soma de NUM_DOCUMENTO")
'        .Caption = "Contagem de NUM_DOCUMENTO"
'        .Function = xlCount
'    End With
'
'''-- Filtro
''
'    ActiveSheet.PivotTables("Tabela5").PivotFields("GERENCIA").ClearAllFilters
'    ActiveSheet.PivotTables("Tabela5").PivotFields("GERENCIA").CurrentPage = "SERRANA & INTERIOR SUL"

Artzn,

Você pode disponibilizar o arquivo? Não precisa ser com os dados originais, mas coloque a tabela dinâmica no formato final.

Dependendo do caso de relatório que você precisa, talvez seja melhor montar por VBA diretamente. Eu particularmente não gosto de trabalhar com tabela dinâmica.

Cara, o arquivo faz conexao com banco de dados e tal..

Na verdade so preciso saber como eu faço um filtro tipo

ActiveSheet.PivotTables("Tabela5").PivotFields("GERENCIA").ClearAllFilters
'ActiveSheet.PivotTables("Tabela5").PivotFields("GERENCIA").CurrentPage = "SERRANA & INTERIOR SUL"

Mas que no currentPage eu consiga selecionar mais de um filtro ( mais de uma caixinha se eu fizesse manualmente)

Artzn,

Sem um arquivo de exemplo eu não posso ajudar muito.

Só um teste, retire essa linha:

ActiveSheet.PivotTables("Tabela5").PivotFields("GERENCIA")[b].ClearAllFilters[/b]

Esse ClearAllFilters retira todos os filtros anteriores do código.