Jump to content
Fórum Script Brasil
  • 0

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


Question

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 to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148886
    • Total Posts
      644905
×
×
  • Create New...