Este fórum está sendo desativado

[Zoe]

Boa tarde pessoal,
Estou querendo automatizar uns processos, só que para isto eu preciso executar um macro dentro de outro macro. Estou com dificuldade para conseguir fazer isto.

Segue um exemplo do que preciso. Deixei a parte que estou com problemas em negrito.

Sub abrir_fechar_planilha_geral_valores()
'
' abrir_fechar_planilha_geral_valores Macro
' Abri e fechar a planilha geral de valores para atualizar itens principais.
'

'
ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
ActiveWorkbook.Save
ActiveWindow.Close


ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
EXECUTAR MACRO ABRIR SALVAR FECHAR
ActiveWorkbook.Save
ActiveWindow.Close

ChDir "S:\exemplo\exemplo"
Workbooks.Open Filename:= _
"S:\exemplo\exemplo\exemplo.xlsx" _
, UpdateLinks:=0
ActiveWorkbook.Save
ActiveWindow.Close


End Sub.


O macro abrir salvar e fechar é este abaixo. Ele pode demorar uns 10 minutos abrindo e fechando arquivos, tenho que prever este tempo em algum lugar para o macro acima?

Código: Selecionar todos

Sub Abrir_salvar_fechar()
'
'
'
Range("A3:A999").Select
For Each Cell In Selection
If Not IsEmpty(Cell.Value) Then
    Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.Save
    ActiveWindow.Close
End If
Next Cell

End Sub

[osvaldomp]

Basta colocar no lugar desta linha ~~~> EXECUTAR MACRO ABRIR SALVAR FECHAR ~~~> o nome da macro que você quer executar, ou seja, Abrir_salvar_fechar, que a execução será desviada para ela, e ao finalizar, a execução será retornada automaticamente para a primeira.

[Zoe]

Ahahah, tão simples! E eu tentando por maneiras mais complicadas.

Muito obrigado novamente Osvaldo (Você já me ajudou em outra oportunidade aqui).

[osvaldomp]

Salve, @Zoe .

Que bom que resolveu.

Grato por retornar.