Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro - Único Filtr...
 
Notifications
Clear all

Macro - Único Filtro para várias Tabelas dinâmicas

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
1,791 Visualizações
RSS
 toni702
(@toni702)
Posts: 5
Active Member
Topic starter
 

Boa Tarde Pessoal,

Procurei no forum sobre como fazer este processo, mas como não entendo muito de macros peço auxílio dos mestres...

Possuo uma planilha que tenho em uma tabela uma massa de dados.

Em outra aba, consolido estes dados em várias tabelas dinâmicas que utilizam o mesmo campo filtro, que no caso é ano.

Estou tentado fazer com que ao alterar uma célula, no caso C2 altere o mesmo ano para todas as tabelas dinâmicas.... é possível...

Em pesquisas tentei fazer a macro mas não tive exito...

Para a primeira tabela ele funciona, mas para a segunda dá erro de 1004.

Segue a baixo a macro que estou tentando fazer...

Muito obrigado

Tiago

-------------------------------------------------------------------

Sub AtualizaFiltros()
'
' AtualizaFiltros Macro
'
Dim nFiltro

nFiltro = Range("C2")

ActiveSheet.PivotTables("Tot_Jan").PivotFields("ANO"). _
CurrentPage = nFiltro

ActiveSheet.PivotTables("Tot_Fev").PivotFields("ANO"). _
CurrentPage = nFiltro

'
End Sub

 
Postado : 02/10/2012 3:36 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Poste seu arquivo modelo compactado!!!

Att

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

 
Postado : 02/10/2012 4:25 pm
 toni702
(@toni702)
Posts: 5
Active Member
Topic starter
 

Boa noite Alexandrevba,

Segue anexo a planilha.

Na aba DADOS é onde possuo a planilha com os dados que abastecem as tabelas dinâmicas.

Na aba RESUMO MENSAL é onde tenho algumas tabelas que deveriam ser atualizadas pelo filtro da célula C2

Obrigado

Tiago

 
Postado : 02/10/2012 4:31 pm
Lovera
 Lovera
(@lovera)
Posts: 90
Trusted Member
 

Detalha melhor o q vc quer.
Não consegui entender.

 
Postado : 03/10/2012 5:57 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Acredito que isso deva resolver...Não se esqueça de clicar na mãozinha e marcar seu topico como resolvido!!! veja em:
viewtopic.php?f=7&t=3784

Baixe o arquivo em:
http://www.sendspace.com/file/2trnns

Insira dentro da planilha dentro do Editor VBA

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C2" Then
        x = Application.Trim(Target.Value)
        For Each pt In PivotTables
            Select Case pt.Name
            Case "TotJan", "Res_Jan", "TotFev", "Tabela dinâmica1"
                pt.PivotFields("ANO").EnableMultiplePageItems = False
                pt.PivotFields("ANO").CurrentPage = x
            End Select
        Next pt
    End If
End Sub

Att ;)

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

 
Postado : 03/10/2012 6:55 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico