Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Salvar sem question...
 
Notifications
Clear all

Salvar sem questionar ao finaliza pedido

 
2024 - VBA & Macros
Post Recente por Fox_Mulder 12 anos atrás
8 Posts
2 Usuários
0 Reactions
1,629 Visualizações
RSS
 Fox_Mulder
(@fox_mulder)
Posts: 8
Active Member
Topic starter
 

Bom dia

Os dois comandos funcionam quando executo a macro finalizar pedido.

Porém, sempre abrem duas box perguntando se desejo salvar o arquivo caixa, e o arquivo de cópia do pedido.
Gostaria alterar para que salve automaticamente sem perguntar, e se possível apenas informando ao final que foi salvo com sucesso

Alguém me da uma luz?

Esse aqui salva a planinha que estou trabalhando
reponse = Application.Dialogs(xlDialogSaveAs).Show

Esse aqui salva uma nova planilha dentro de outra pasta (cópia de pedido)
Dim nRange As Range
Set nRange = Sheets("caixa").Range("b49")
Dim stDir As String
Dim vaSvar As Variant

stDir = "E:Projeto Mimos Baby & KidsPedidos"
ChDrive stDir
ChDir stDir
vaSvar = Application.GetSaveAsFilename(nRange, "Microsoft Excel(*.xls), *.xls", , _
"Deseja salvar este Workbook " & nRange & "?")
If vaSvar = False Then Exit Sub
ThisWorkbook.SaveAs Filename:=CStr(vaSvar)

 
Postado : 11/09/2012 7:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

'Esse aqui salva a planinha que estou trabalhando
ThisWorkbook.Save ' Application.Dialogs(xlDialogSaveAs).Show

'Esse aqui salva uma nova planilha dentro de outra pasta (cópia de pedido)
Dim nRange As Range
Set nRange = Sheets("caixa").Range("b49")
Dim stDir As String
Dim vaSvar As Variant

stDir = "E:Projeto Mimos Baby & KidsPedidos"
'ChDrive stDir
'ChDir stDir
'vaSvar = Application.GetSaveAsFilename(nRange, "Microsoft Excel(*.xls), *.xls", , _
'"Deseja salvar este Workbook " & nRange & "?")
'If vaSvar = False Then Exit Sub
ThisWorkbook.SaveAs Filename:=CStr(nRange)

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

 
Postado : 11/09/2012 8:03 am
 Fox_Mulder
(@fox_mulder)
Posts: 8
Active Member
Topic starter
 

Muito obrigado mesmo Reinaldo, funcionou perfeitamente (ainda existe gente boa neste mundao heheh)

Sem querer ser chato (já sendo), tem como colocar uma comando que feche a planilha ao final?
Digo isso pq ao final da execução ele abre o arquivo de cópia do pedido

att

 
Postado : 11/09/2012 8:23 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom no teste que fiz, não abre a "coppia", mas se para fechar o arquivo cópia

Workbooks(nRange & ".xls").Close

se quiser encerrar o excel
Application.Quit

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

 
Postado : 11/09/2012 8:48 am
 Fox_Mulder
(@fox_mulder)
Posts: 8
Active Member
Topic starter
 

Muito obrigado Reinaldo

 
Postado : 11/09/2012 9:01 am
 Fox_Mulder
(@fox_mulder)
Posts: 8
Active Member
Topic starter
 

Agora que reparei... não está mais salvando na pasta correta.

Está salvando na pasta Meus Documentos

O Correto é E:Projeto Mimos Baby & KidsPedidos

não sei o que houve..

 
Postado : 11/09/2012 9:12 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

é que para testar inibi as linhas
ChDrive stDir e ChDir stDir (deve estar em verde emseu codigo)
retire o apostrofe antes deles, que passarão a ser considerado e deve resolver

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

 
Postado : 11/09/2012 9:29 am
 Fox_Mulder
(@fox_mulder)
Posts: 8
Active Member
Topic starter
 

Perfeito!

Mais uma vez, grato pela ajuda
Fox

 
Postado : 11/09/2012 10:52 am
Forum Jump:
  Tópico Anterior
Próximo Tópico