filtrar tabela dinamica por macro

[BernardorValle]

Olá

estou automatizando uma planilha que trabalho e uma das rotinas necessita que eu filtre uma tabela dinamica, no campo diferença com rótulos que sejam menor ou igual a 0,5

quando executo a rotina, o vba reconhece o filtro, mas não o finaliza.

 

dai toda vez que executo esse macro, tenho que voltar manualmente na tabela dinamica e em filtro para o campo "diferença", em menor ou igual, apertar "ok" (o valor de 0,5) já se encontra lá.

 

Segue um exemplo do macro

 

Sub FiltrarRupturaBase()
'
' FiltrarRupturaBase Macro
'

'
    ActiveSheet.PivotTables("Tabela dinâmica5").PivotFields("Diferença"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica5").PivotFields("Diferença"). _
        PivotFilters.Add2 Type:=xlCaptionIsLessThanOrEqualTo, Value1:="0,5"
End Sub

 

O que preciso fazer para atualizar?

copiei a tabela de dados para uma nova planilha e gerei uma nova tabela dinamica, nesse caso consegui executar o filtro por macro, alguem saberia o que me impede de executar esse filtro na minha planilha de trabalho? - lembrando que não da erro, simplesmente não executa o filtro como mostra o macro

[T1000_2015]

Esse "0,5" é um texto ou um número?

Se for valor numérico, tem que tirar as aspas e substituir a vírgula por ponto.

[BernardorValle]

Eu fiz um video mostrando

segue o link

n

adicionado 1 minuto depois

20 minutos atrás, T1000_2015 disse:

Esse "0,5" é um texto ou um número?

Se for valor numérico, tem que tirar as aspas e substituir a vírgula por ponto.

Bixo, to quebrando cabeça com uma parada *****. Muito obrigado, funcionou.