Ir para conteúdo
Fórum Script Brasil
  • 0

Filtrar mês na Tabdin com base numa célula (variável)


wmds007

Pergunta

Olá Pessoal, bom dia!

Sou novo no fórum e estou iniciando no mundo VBA. rs

Vejam se podem me ajudar:

Preciso que minha macro tire todos os filtros de data e adicione o filtro conforme minha célula M1 da planilha. Desta forma, quando eu tiver na célula especificada e digitar Jun, ele irá filtrar o mês de Junho na minha dinâmica. Quando a macro chega na ultima linha, ela não entente que PivotItems(mes).Visible = True é minha variável da célula M1 da minha planilha. Espero ter sido claro...Obrigado !!  =)

 

Sub Macro3()
'
' Macro3 Macro
'
    Dim mes As String
    
    
    mes = Range("M1").Activate
    

    With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("DATA_MOV")
        .ClearAllFilters
        .PivotItems("Jan").Visible = False
        .PivotItems("Feb").Visible = False
        .PivotItems("Mar").Visible = False
        .PivotItems("Apr").Visible = False
        .PivotItems("May").Visible = False
        .PivotItems("Jun").Visible = False
        .PivotItems("Jul").Visible = False
        .PivotItems("Aug").Visible = False
        .PivotItems("Sep").Visible = False
        .PivotItems("Oct").Visible = False
        .PivotItems("Nov").Visible = False
        .PivotItems("Dec").Visible = False
        .PivotItems(mes).Visible = True
        
        
    End With
End Sub

 

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...