Página 1 de 1

Código para sair e fechar uma tela

Enviado: 12 Mai 2015 às 16:33
por rborges
Boa tarde!
Amigos ,
Preciso de uma ajuda, estou desenvolvendo um projeto e nele coloquei uma tela como MENU principal que dentro tem vários ícones.
Preciso de um código que quando eu selecionar um item a tela MENU feche e deixe apenas a tela do ícone aparecendo..e na tela do ícone coloquei um botão VOLTAR e gostaria que qdo fosse clicado ele salvasse as informações e fechasse a tela e volte para tela MENU.
Estou mandando anexo o projeto em questão a única tela q esta funcionando por enquanto é o ícone MALOTE.
Tentei esse código mas não deu certo..
Application.Quit
frmMenu.Show

...Mais uma ajuda quando a tela do Menu abre aparece no fundo a tela do Excel, qual código posso usar para não aparecer o Excel? sem aparecer o excel como façõ para ir para aba de VBA
Desde ja agradeço a atenção

Re: CÓDIGO PARA SAIR E FECHAR UMA TELA

Enviado: 12 Mai 2015 às 17:04
por alexandrevba
Boa tarde!!

Ainda não olhei seu arquivo, mas já tentou?

Userform1
Código: Selecionar todos
Unload me 
Menu2.Show 
Userform2
Código: Selecionar todos
Unload me 
Menu1.Show 
Att

Re: CÓDIGO PARA SAIR E FECHAR UMA TELA

Enviado: 12 Mai 2015 às 17:10
por rborges
Boa tarde Alexandre!
E no UseForm do MENU tentei esse:
Private Sub UserForm_Click()
Unload Me
frmMenu.Show
End Sub

E no botão VOLTAR tentei esse código:
Private Sub cmdVoltar_Click()

If MsgBox("Você tem certeza que deseja VOLTAR AO MENU?", vbYesNo, "Confirmação") = vbYes Then
ActiveWorkbook.Save
Unload Me
frmMenu.Show
End If

Mas não deu certo..

Re: CÓDIGO PARA SAIR E FECHAR UMA TELA

Enviado: 12 Mai 2015 às 17:24
por alexandrevba
Boa tarde!!

Tentou com a opções (na propriedade do userform), ShowMoldal = False ?

Att

Re: Código para sair e fechar uma tela

Enviado: 13 Mai 2015 às 10:12
por rborges
Bom dia Alexandrevba
Coloquei o código abaixo no Userform da tela e com a opção do lado direito deixei Click
Private Sub UserForm_Click()
Unload Me
frmMenu.Show
ShowMoldal = False
End Sub

mas não deu certo..

Re: Código para sair e fechar uma tela

Enviado: 13 Mai 2015 às 11:29
por alexandrevba
Bom dia!!

Eu disse na propriedades do Userform!!

Tenha certeza que clicou no Userform, do lado esquerdo ou F4, havera uma janela chamado Propriedades.

https://msdn.microsoft.com/pt-br/librar ... 51819.aspx
http://bianchi.pro.br/vba/vba_p4.php

Att

Re: Código para sair e fechar uma tela

Enviado: 13 Mai 2015 às 14:14
por rborges
Alexandrevba,
Desculpe-me mas não estou conseguindo entender como fazer este processo, haveria a possibilidade de você me mandar o exemplo como este código no anexo que enviei por gentileza..
Baixei os links q vc enviou obrigado..
Sou novo no mundo do VBA e ainda estou um pouco perdido...
Grato

Re: Código para sair e fechar uma tela

Enviado: 13 Mai 2015 às 14:28
por rborges
Boa tarde!
Alexandre encontrei a opção Show Modal e mudei para False nas propriedades do userform MENU conforme vc me orientou..porém ainda quando abro o projeto aparece a tela do Menu e ao clicar no ícone a tela fica em cima do Menu... :(

Re: Código para sair e fechar uma tela

Enviado: 13 Mai 2015 às 17:44
por alexandrevba
Boa noite!!

Use
Código: Selecionar todos
Unload Me
!!

Neste caso cuide para que desapareça o userform que você deseja como tal.

veja o anexo.

Att

Re: Código para sair e fechar uma tela

Enviado: 14 Mai 2015 às 13:15
por rborges
Boa tarde!
Alexandre,
Abri o anexo e qdo clico no ícone do menu o fundo do excel desaparece..porem o Menu ainda continua aparecendo atrás da tela de ícone...
Para voltar a enxergar o excel como faço?

Re: Código para sair e fechar uma tela

Enviado: 14 Mai 2015 às 13:41
por alexandrevba
Boa tarde!!

O comando MeuFormulario.Show, não funciona?

Att