Notifications
Clear all

Cancelando as janelas de mensagem

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

Como evitar que apareçam as janelas de mensagem após o "ActiveWindow.Close"?

http://goo.gl/UYfsFf

Sub eficiencias()
'
' eficiencias Macro
'

'
Sheets("10").Select
Application.Goto Reference:="R1C39"
ChDir "C:UsersFelippeDropboxData"
Workbooks.Open Filename:= _
"C:UsersFelippeDropboxDataResultado da semana (respostas).xlsx"
Columns("A:F").Select
Selection.Copy
Windows("Projeto - Reciclecel Escoteiros.xlsm").Activate
ActiveSheet.Paste
Windows("Resultado da semana (respostas).xlsx").Activate
ActiveWindow.Close
Sheets("Menu").Select
End Sub

 
Postado : 16/07/2014 9:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Olá,

Ao final tente o seguinte comando.

ActiveWorkbook.Save
Application.Quit

abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/07/2014 11:05 pm