Notifications
Clear all

MACRO PARA ATUALIZAR VÁRIAS PLANILHAS

2 Posts
2 Usuários
0 Reactions
1,225 Visualizações
(@ocneto)
Posts: 4
New Member
Topic starter
 

Bom dia,

estou tentando criar uma macro que faça a atualização das tabelas dinâmicas de várias planilhas.
Criei a macro mas ao executá-la, está pulando etapas do processo.

Por Exemplo:
o Processo seria abrir a planilha, atualizar as dinâmicas, salvar a planilha e fechá-la mas a marco está tentando fechar a planilha durante a atualização das dinâmicas.

Sub BRUNOF()
'
' BRUNOF Macro
'

'
    Workbooks.Open Filename:= _
        "D:UserxxxDesktopRelatoriosRECEITA(BRUNOF).xlsx"
    Sheets("Receita YTD").Select
    ActiveWorkbook.RefreshAll
    Sheets("PRINCIPAL").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub
 
Postado : 18/10/2018 7:39 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ocneto,

Bom dia!

Tente pausar a macro após o Refresh para dar tempo que a mesma seja atualizada. Use o código assim:

Sub BRUNOF()
'
' BRUNOF Macro
'

'
    Workbooks.Open Filename:= _
        "D:UserxxxDesktopRelatoriosRECEITA(BRUNOF).xlsx"
    Sheets("Receita YTD").Select
    ActiveWorkbook.RefreshAll
    'A macro é pausada por 10 segundos. Veja qual é o tempo necessário para sua planilha _
    se atualizar e altere de modo a que a macro possa esperar antes de continuar a execução
    Application.Wait (Now + TimeValue("0:00:10"))
    Sheets("PRINCIPAL").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

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 : 18/10/2018 8:07 am