Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO PARA ATUALIZA...
 
Notifications
Clear all

MACRO PARA ATUALIZAR TABELAS DINAMICAS DE VÁRIAS PLANILHAS

 
2024 - VBA & Macros
Post Recente por Wagner Morel 6 anos atrás
4 Posts
2 Usuários
0 Reactions
1,021 Visualizações
RSS
 ocneto
(@ocneto)
Posts: 4
New Member
Topic starter
 

Boa tarde Pessoal,

não tenho muito conhecimento de Macros e VBA mas estou precisando de uma ajuda se possível, fiz várias planilhas com relatórios executivos das diretorias da empresa que trabalho.

Essas planilhas possuem tabelas dinãmicas que estão interligadas a dash boards e essas tabelas são conectadas a um banco de dados em Access.

Todos os meses tenho que abrir cada planilha, desprotegê-las, reexibir as abas onde estão as tabelas dinâmicas e atualizá-las.

Gostaria de saber se teria como criar uma macro que abrisse cada planilha, desprotegesse, reexibisse as abas e atualizasse as dinamicas salvando os arquivos em seguida.

 
Postado : 23/08/2018 11:48 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ocneto,

Bom dia!

Sua demanda está muito genérica e isso é até plausível pelo fato de que você confessa não entender de VBA. Para lhe ajudar será necessário você fazer pequenos arquivos exemplo de suas planilhas, com no máximo umas 3 ou 5 linhas (sem dashboard), compactar os mesmos com .ZIP e anexar aqui. Se, no total, o arquivo ainda ficar grande, compacte um a um e anexe-os individualmente.

Toda essa necessidade apontada por você na demanda é possível fazer com VBA.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 24/08/2018 7:45 am
 ocneto
(@ocneto)
Posts: 4
New Member
Topic starter
 

Bom dia Vagner,

agradeço pela atenção e a disposição em ajudar mas fuçando aqui acabei conseguindo o que eu queria, deu alguns erros mas um amigo de trabalho acabou me ajudando a corrigí-los mesmo assim obrigado.

segue abaixo o código da Macro que criei.

Sub DIRETORIA()
'------Atualizar DIRETORIA-------'

    Workbooks.Open Filename:= _
        "D:UserSKPNova PastaRECEITA.xlsx"
    ActiveWorkbook.Unprotect "senha"
    Sheets("BASE").Select
    Sheets("GRAFICO").Visible = True
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("GRAFICO").Select
    Sheets("TB VARIACAO").Visible = True
    Sheets("GRAFICO").Select
    Range("B6").Select
    Sheets("BASE").Select
    Range("D10").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    Sheets("TB VARIACAO").Select
    Range("A6").Select
    ActiveSheet.PivotTables("Variacao_Positivas").PivotCache.Refresh
    Sheets("TB VARIACAO").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("GRAFICO").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.ScrollWorkbookTabs Sheets:=-4
    Sheets("PRINCIPAL").Select
    ActiveWorkbook.Protect "SENHA"
    ActiveWorkbook.Save
    ActiveWindow.Close
    
End Sub
 
Postado : 24/08/2018 7:56 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Beleza amigo.

Qualquer coisa, sempre às ordens por aqui. Anexe sempre um arquivo exemplo, relatando manualmente, inclusive, como deve ser o resultado final. Isso é muito importante e ajuda bastante.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 24/08/2018 9:23 am
Forum Jump:
  Tópico Anterior
Próximo Tópico