Página 1 de 1
Fazer Userform fechar ao salvar
Enviado: 28 Set 2016 às 13:12
por 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
Fazer Userform fechar ao salvar
Enviado: 28 Set 2016 às 13:54
por gfranco
Boa tarde.
Qual seu objetivo?
Fechar e salvar a planilha ou oculta-la e reexibir o userform?
Re: Fazer Userform fechar ao salvar
Enviado: 28 Set 2016 às 14:43
por 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 todosPrivate Sub botaosalvaresair_Click()
UserForm3.Show
ActiveWorkbook.Save
Application.Quit
End Sub
Att
Re: Fazer Userform fechar ao salvar
Enviado: 28 Set 2016 às 14:56
por 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.
Re: Fazer Userform fechar ao salvar
Enviado: 29 Set 2016 às 08:48
por alexandrevba
Bom dia!!
Então Save o arquivo
.
Chame o Userform
.
...
Dentro do UserForm3 na ultima linha, após terminar a rotina da barra de progrsso, chame
.
Código: Selecionar todosPrivate Sub botaosalvaresair_Click()
ActiveWorkbook.Save
UserForm3.Show
End Sub
Att
Re: Fazer Userform fechar ao salvar
Enviado: 29 Set 2016 às 10:34
por Dunguinha
Bom dia colegas.
Esse comando Application.Quit dentro do Userform3 mesmo na ultima linha não deixa executar o userform, fecha planilha antes.
Re: Fazer Userform fechar ao salvar
Enviado: 03 Out 2016 às 10:30
por 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 todosSub SALVARARQUIVO()
Dim userchoice As Integer
Select Case userchoice
Case vbNo
Exit Sub
Case Else
ActiveWorkbook.Save
ComBarras
Application.Quit
End Select
End Sub
Att