Este fórum está sendo desativado

[Dunguinha]

Ola colegas.
Nessa planilha em anexo quando eu clico no botão salvar da planilha que eu adicionei abre o Userform3,
porém o mesmo não ta funcionando e não fecha sozinho.

Alguém poderia ajudar?

Usuário: 1
Senha: 1

[gfranco]

Boa tarde.
Qual seu objetivo?
Fechar e salvar a planilha ou oculta-la e reexibir o userform?

[alexandrevba]

Boa tarde!!

Eu não entendi.

Você pretende salvar o arquivo, abrir um UserForm e fechar o excel?
Porque essa linha:

Código: Selecionar todos

   Application.Quit

Código: Selecionar todos

Private Sub botaosalvaresair_Click()
   
   UserForm3.Show
   
   ActiveWorkbook.Save
   Application.Quit

End Sub

Att

[Dunguinha]

O objetivo é clicar no botão salvar chamar o userform3 com barra progresso e ao termino da progressBar fechar userform
salvar e fechar a planilha.

[alexandrevba]

Bom dia!!
Então Save o arquivo

Código: Selecionar todos

UserForm3.Show

.
Chame o Userform

Código: Selecionar todos

UserForm3.Show

.
...Dentro do UserForm3 na ultima linha, após terminar a rotina da barra de progrsso, chame

Código: Selecionar todos

Application.Quit

.

Código: Selecionar todos

Private Sub botaosalvaresair_Click()
   ActiveWorkbook.Save
   UserForm3.Show
End Sub

Att

[Dunguinha]

Bom dia colegas.

Esse comando Application.Quit dentro do Userform3 mesmo na ultima linha não deixa executar o userform, fecha planilha antes.

[alexandrevba]

Bom dia!!

Sempre que possível poste a solução do seu post para que outros colegas possar usar em ocasiões similares.
'Fonte:http://www.planilhando.com.br/forum/vie ... 10&t=22062

Código: Selecionar todos

Sub SALVARARQUIVO()

   Dim userchoice As Integer

   Select Case userchoice
   
   Case vbNo

      Exit Sub
      
   Case Else

   ActiveWorkbook.Save
   ComBarras
   Application.Quit

   End Select

End Sub

Att