Notifications

Clear all

ATIVAR MACRO A PARTIR DE UMA CELULA VARIAVEL

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

2 Usuários

0 Reactions

1,714 Visualizações

RSS

Mahzinh0

(@mahzinh0)

Posts: 5

Active Member

Topic starter

Boa tarde Galera, sou novo por aqui e com conhecimento limitadíssimo em VBA!!!

Abaixo segue o link da planilha que estou trabalhando, o que preciso??
Basicamente é uma Macro com 6 variáveis de combinação. eu tenho uma Drop-down que está vinculada a célula F2, preciso que toda vez que a célula F2 mude a tabela dinâmica também se atualize automaticamente com os dados.

Exemplo: quando a Celula F2 = 1, a o filtro mês da tabela dinamica deve filtrar o item 1, quando a Celula F2 = 2, a o filtro mês da tabela dinamica deve filtrar o item 2 e assim sucessivamente até 12.

pode me ajudar?

link do arquivo:
http://www.4shared.com/file/uJLFsHxnce/ESRE_TESTE.html

Postado : 25/04/2014 10:34 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Não tem Drop-down em F2!
Mas tente assim.
Ponha o código dentro do módulo de planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pvt As PivotTable
    
    If Target.Address = Me.Range("F2").Address Then
        For Each pvt In Me.PivotTables
            pvt.PivotFields("NOmeDoCampoDaTD").CurrentPage = Me.Range("F2").Value
        Next
    End If
    
End Sub
Private Sub Worksheet_Activate()
    Me.PivotTables("Tabela dinâmica1").PivotCache.Refresh
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 25/04/2014 12:23 pm

Mahzinh0

(@mahzinh0)

Posts: 5

Active Member

Topic starter

Alexandre, brigdão!!!!

O comando funcionou perfeitamente.

Postado : 28/04/2014 9:14 am