Este fórum está sendo desativado

[Bocolo]

Olá Pessoal
Estou trabalhando em uma planilha do trabalho onde tenho várias tabelas dinâmicas.
Toda semana preciso atualizalas, e a partir dai tirar o resultado e colocar em diferentes gráficos.
Fecho os número por semana
Por exemplo.
Ano 2016 semana 30, nossa semana atual 1630.

OK. Não sou expert em VBA, geralmente gravo a macro e depois vou editando. Assim como fiz agora.

Minha macro é:

Sub teste11()

Dim ANOO As Integer
Dim SEMA As Integer


ANOO = InputBox("Informe o Ano com 4 digitos: ", "Ano")
SEMA = InputBox("Informe a semana do ano: Exemplo: Semana 1601 Informe 1 - Semana 1630, informe 30", "Semana")


ActiveSheet.PivotTables("EDC DOR TOTAL").PivotFields( _
"[Calendar].[Year Period Week].[Week]").VisibleItemsList = Array( _
"[Calendar].[Year Period Week].[Week].&[ANOO]&[SEMA]")
ActiveSheet.PivotTables("EDC DOR TOTAL").PivotFields( _
"[Calendar].[Year Period Week].[Date]").VisibleItemsList = Array("")

End Sub

Na parte em que coloco o Ano (ANOO) e a semana SEMA ao usar número dá certo, porém quando uso as variaveis dá erro na macro.




Basicamente só preciso trocar o filtro dentro da pivot table
Alguem teria ideia?

Obrigado antecipadamente.

Att
Rafael

[Bocolo]

Para complementar, ele fala que o erro é que o número que estou colocando não existe no database.
Estranho pois se troco o mesmo numero pela variável dentro da macro dá certinho

[DJunqueira]

Me parece q a automação q vc quer criar não precisaria de macro, seriam apanas alguns ajustes q vc não está sabendo inserir.
Q tal anexar sua planilha p/ darmos uma olhada?

[Bocolo]

OLá DJ

Segue anexo:

O problema é que são varias dinamicas em varias abas, e como vem do sistema, demora para ficar alterando uma por uma manual.

Obrigado.

[alexandrevba]

Bom dia!!

De onde vem a fonte dos dados dessas TD's, não está no arquivo, assim eu não consigo testar.

Mas veja esse tutorial bacana.
http://www.globaliconnect.com/excel/ind ... Itemid=475

Att

[Bocolo]

Legal Alexandre.
Dei uma passada rápida e acho que vai me ajudar sim.
Vou olhar com calma em casa a noite.
Muito obrigado.

[Bocolo]

Olá Alexandre.

Estudei o link ontem mas não encontrei a solução.
Vou dar mais uma estudada no VBA como todo e ver algumas aulas de pivot table.
Na verdade, como meu conhecimento não é tão bom assim, acho que talvez encontre a solução de outra forma assim como informou o DJ.
O que fiz por enquanto, criei uma slicer nova a linkei com todas as tabelas da minha planilha.
Assim, fica fora da macro mas altero todas de uma única vez e rápido.



Também preciso aprender a usar a tabela dinamica da forma abiaxo:
Nao sei criar esses filtros dessa forma, aprendendo isso, tambpem acho que fica mais facil de manusear.




Vou abrir um tópico lá no básico para essa parte.

rsss


Muito obrigado.

Att
Rafael

[DJunqueira]

Essa solução é ótima.