Botão fechar form e...
 
Notifications
Clear all

Botão fechar form e ir para planilha

5 Posts
2 Usuários
0 Reactions
1,716 Visualizações
(@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?

 
Postado : 14/09/2012 9:05 am
(@mikel-silveira-fraga)
Posts: 41
Trusted 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.

 
Postado : 14/09/2012 9:43 am
(@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 
 
Postado : 14/09/2012 9:45 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

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

Mikel Silveira Fraga, sua dica funcionou perfeitamente. Obrigado.

 
Postado : 14/09/2012 10:14 am