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,642 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

(@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

(@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

(@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