Walter, não sei se entendi corretamente, e tambem não sou muito bom em TD, mas de uma olhada se seria isto:

[]s

OI Mauro boa noite!

Desculpe a demora na resposta, estava ocupado em um trabalho esses dias e não tinha como responder, muito obrigado pela sua atenção na minha dúvida.

Porém ainda não é isso que eu procuro, vou tentar ser um pouco mais claro. No novo arquivo anexo, eu criei a macro que filtra o nome Walter até ai legal, agora preciso alterar de Walter para Daniela e executar um msgbox "Filtrado Daniela", depois alterar o filtra para Clarice, e aparece o msgbox "Filtrado Clarice" e assim por diante até o último nome. Essa macro só vai parar quando o filtro chegar na seleção branco.

Muito obrigado amigos!

Walter, adaptando uma rotina sugerida no site abaixo cheguei ao valor selecionado, mas só que como eu disse, TD não é muito a minha praia, não sei se o resultado está correto, pois mostra alguns nomes que não estão nesta tabela (Nome e Sobrenome), então, veja se a mesma ajuda a elucidar em parte sua necessidade.

Sub WhatsSelected()
    Dim i As Integer, j As Integer
    Application.ScreenUpdating = False
    
    With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("Gestor")
        j = .Position
        .Orientation = xlRowField
        For i = 1 To .PivotItems.Count
            If .PivotItems(i).Visible Then
                MsgBox .PivotItems(i).Name & " Selecionado"
            End If
        Next i
        .Orientation = xlPageField
        .Position = j
    End With
    Application.ScreenUpdating = True
    
End Sub

Fonte : http://www.ozgrid.com/forum/showthread. ... 630&page=1

[]s

Mauro,

Fiz uns teste aqui e alterei algumas partes do código. E consegui chegar próximo do que busco, só falta movimentar o filtro.

Vou continuar trabalhando no código e posto a planilha para você analisar, de qualquer forma muito obrigado pela sua ajuda!!!!

Sobre os dados que aparecem no filtro da TB com nome e sobrenome, a tabela dinâmica tem esse problema estranho. Ela continua apresentando dados que já foram deletados da base principal, de qualquer forma criei um código que gera uma tabela dinâmica antes de começar o código de alterar o filtro dela.

Vou postar o resultado em breve.

Muito obrigado pela ajuda até o momento!!

Oi Walter,

Segue em anexo a resposta conforme conversamos.

Abraço

Marcos Rieper

Boa noite!

Desculpem a demora na resposta. Marcos muito obrigado pela sua ajuda, + 1 vez me ajudando em minhas dúvidas, boa sorte com seu site www,guiadoexcel.com.br é muito maneiro, recomendo a todos!

Mauro,

Obrigado por toda ajuda que você me deu nesse tempo. Quando puder farei o mesmo por você!

Grande abraço galera.

Pessoal,

Obrigado pelas dicas, que por sinal são muito boas.

Tenho uma dúvidas, caso eu tenha "N" tabelas dinâmicas "PivotTables" com o mesmo campo de filtro como faço para alterar o campo de todas sem selecionar uma por vez?

Obrigado