Notifications
Clear all

Form estático na tela

6 Posts
2 Usuários
0 Reactions
1,347 Visualizações
(@mairon)
Posts: 40
Trusted Member
Topic starter
 

Olá pessoal,

Só pra fechar com chave de ouro meu projeto aqui, gostaria de mais uma ajuda, essa creio que seja simples.

Por exemplo, em um form, tem um combobox, os dados dele estão carregados pois a base está na planilha, porém quando o usuário troca de planilha (alt+tab por exemplo), o form continua na tela e ao clicar no combobox da erro, pois a planilha que está com os dados não é mais a ativa .... gostaria de saber se alguém tem alguma sugestão e se tem como por exemplo quando o usuário da um alt+tab para trocar a planilha o form não vá junto, que ele fique junto a sua planilha de origem.

 
Postado : 31/01/2014 3:44 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mairon,

Se eu estou entendendo bem o que voce ta falando, se colocar no seu COMBO assim, no evento CHANGE dele, resolverá o problema

Private Sub ComboBox1_Change()
WOrkbooks("NOMEARQUIVO").Sheets("PLAN1").Activate

SUA ROTINA
End Sub

Abs

 
Postado : 31/01/2014 4:07 pm
(@mairon)
Posts: 40
Trusted Member
Topic starter
 

a questão é que o form está cheio combobox, multipages, e botões que fazem abrir outros forms ....no que vi aqui, a solução seria que o form ficasse somente a planilha de origem ...

Um jeito fácil de exemplificar ... pega uma planilha em branco, coloca um form nela e manda executar o form, deixa ele na tela, ai depois abre outra planilha qualquer ... o form irá continuar na tela (obs.: as planilhas tem que estar salvas no pc)

 
Postado : 31/01/2014 4:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mairon, se entendi, coloque as rotinas abaixo em "EstaPasta_de_trabalho"

'Este Oculta o formulário quando perder o Foco, se quiser fecha-lo altere SeuFormulario.Hide por Unload Me

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    SeuFormulario.Hide
End Sub

'Esta linha exibe o form novamente qdo a planilha receber o foco

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    SeuFormulario.Show
End Sub

Não esqueça de ajustar o nome do formulário, faça os testes e veja se é isto.

[]s

 
Postado : 31/01/2014 5:17 pm
(@mairon)
Posts: 40
Trusted Member
Topic starter
 

Mauro;

Perfeito! Obrigado pela atenção.

 
Postado : 31/01/2014 6:06 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 31/01/2014 6:19 pm