Fóruns
Microsoft Excel - 2...
Formulários
Botão fechar form e...
 
Notifications
Clear all

Botão fechar form e ir para planilha

 
Formulários
5 Posts
2 Usuários
0 Reactions
1,725 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá

Tenho um projeto com 3 planilhas com os nomes: marca, modelo, cor (exemplo hipotético). Quando abro o projeto, sou direcionado para um form, de nome "cadastro". Neste form, coloquei uma label que dei o nome "ir_marca". Minha intenção é fazer que ao clicar nesta label, o form seja fechado e eu seja direcionado para a planilha "marca".

Para fechar o form utilizei:

Private Sub ir_marca_Click()
Unload Me
"aqui o comando para abrir a planilha marca"
End Sub

Outra coisa, nesta planilha terá um botão para voltar para o form, ou seja, fechar a planilha e abrir o form. Qual comando utilizo?

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

 
Postado : 14/09/2012 9:05 am
 Mikel Silveira Fraga
(@mikel-silveira-fraga)
Posts: 41
Eminent Member
 

Fala Farofa9781, blz.

Pegando este seu código, vc pode utilizar os seguintes comandos:

Private Sub ir_marca_Click()
"aqui o comando para abrir a planilha marca"
with Sheets("nome_da_planilha")
.visible = true
.select
end with
Application.visible=true
"fechar formulário"
Unload Me
End Sub

O comando With faz referência a um grupo de comando relacionados ao objeto específico, no exemplo acima seria o objeto Sheets("nome_da_planilha").
Em seguida, o comando .visible=true irá tornar visível a planilha em questão, caso vc esteja trabalhando com as planilhas ocultas.
O comando .Select, como o próprio nome diz, seleciona a planilha específica.

Como vc disse que no seu código o form aparece e o excel some, utilize o Application.Visible=True para que o Excel volte a ser exibido.

Bem simples. Espero ter ajudado.

Abraços.

Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Mikel Silveira Fraga
E-mail: [email protected]
Skype: mikelsf

 
Postado : 14/09/2012 9:43 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Eu acho que eu não entendi....

Private Sub CommandButton1_Click() 
     
    Application.Goto Worksheets("Plan1").Range("A1") 
    Unload Me 
     
End Sub

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

 
Postado : 14/09/2012 9:45 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

vou ver o que dá aqui... já volto.

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

 
Postado : 14/09/2012 10:08 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mikel Silveira Fraga, sua dica funcionou perfeitamente. Obrigado.

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

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