Notifications
Clear all

Fechar e reabrir planilha ativa

3 Posts
2 Usuários
0 Reactions
898 Visualizações
(@lvenuto)
Posts: 7
Active Member
Topic starter
 

Boa tarde, amigos

Tenho o código abaixo que limpa os dados da minha planilha, atualiza e depois a fecha.

Não sei se é possível, mas gostaria que ela fosse reaberta, automaticamente, como se fosse um "reset" na planilha.

Obrigado!

Sub Limpar()
' Limpar Macro
    Sheets("Dados").Select
    Range("A5:AG5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.ClearContents
    Range("A5").Select
    ActiveWorkbook.RefreshAll
    ThisWorkbook.Close SaveChanges:=True  
'Código para reabrir a mesma planilha em seguida?
End Sub
 
Postado : 14/06/2017 10:30 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite,

Porque você não simplesmente salva sem fechar?

Substitua essa linha:

ThisWorkbook.Close SaveChange

s:=True
por essa:

ThisWorkbook.Save

att,

 
Postado : 14/06/2017 8:37 pm
(@lvenuto)
Posts: 7
Active Member
Topic starter
 

Boa noite,

Porque você não simplesmente salva sem fechar?

Substitua essa linha:

ThisWorkbook.Close SaveChange

s:=True
por essa:

ThisWorkbook.Save

att,

Obrigado, por responder @brunoxro... eu fiz isso também, mas na verdade o que precisaria é que o arquivo fosse reiniciado, ou seja, que reabrisse logo que fosse fechado.

 
Postado : 16/06/2017 7:19 am