Notifications
Clear all

ComboBox não fecha

7 Posts
2 Usuários
0 Reactions
1,119 Visualizações
(@mauriciopf)
Posts: 0
New Member
Topic starter
 

Meu projeto é constituído de 1 aba consolidada com vínculo a 12 outras. Trata-se de “FLUXO DE CAIXA”. Quando altero um mês qualquer, os valores da primeira, consolidada, são automaticamente atualizados. Utilizo isso há algum tempo, sem problemas. No entanto, resolvi melhora-lo, dotando-o de recursos “Form VBA”. Pretendo ir devagar, visando mais meu aprendizado e menos do que exige a complexidade de um programa dessa natureza. Estou, agora, “travado” na utilização de uma caixa de combinação, ou seja, “comboBox”, explico:
Na aba principal, chamada “GERAL” criei um botão que abre uma listagem (ComboBox) dos meses de “JAN” a “DEZ”; ao escolher um dos meses sou direcionado à aba correspondente; efetuam-se os lançamentos normais e retorno à aba “GERAL”, fim.
O problema surge quando o formulário que contém o ComboBox continua aberto na aba selecionada. Como fazer para que ele não acompanhe a planilha seguinte e que o retorno ao início se dê de forma suave?

 
Postado : 24/08/2015 7:43 am
(@trindade)
Posts: 0
New Member
 

Boa tarde, MauricioPF.

Se entendi bem você quer selecionar o Mês no ComboBox, ao selecionar ele vai te direcionar para a plan refente ao Mês ?
Esses lançamento são feitos via UserForm?

Se possível posta um exemplo reduzido do seu arquivo.

 
Postado : 24/08/2015 10:37 am
(@mauriciopf)
Posts: 0
New Member
Topic starter
 

Exatamente como se referiu: seleciono o Mês no ComboBox, ao selecionar ele me direciona para a plan referente ao mês. Tudo feito via UserForm. Sou iniciante e este é meu 1º programa utilizando esse processo. Segue parte da listagem.

Private Sub UserForm_Activate()
'cont é o contador criado = inteiro
Dim cont As Integer
'Imprime na célula desejada o conteúdo do combox
cont = Range("N3").End(xlDown).Row
'Alinha abaixo faz acrescentar outra, caso haja acrescimo de dados
ComboBox1.RowSource = "N3:N" & cont
End Sub

Private Sub ComboBox1_Change()
'Mostra a escolha na faixa desejada
Range("M3").Value = ComboBox1.Value

If ComboBox1.Value = "JAN" Then
'Range("O3").Value = "JAN"
Worksheets("JAN").Visible = True
Worksheets("JAN").Select
...
...
End if
End sub

 
Postado : 24/08/2015 11:47 am
(@trindade)
Posts: 0
New Member
 

Boa tarde, MauricioPF

Dê uma olhada no arquivo abaixo, já da pra você ter um norte, montei uma estrutura com IF básico, tem como montar de outras formas.

 
Postado : 25/08/2015 12:43 pm
(@mauriciopf)
Posts: 0
New Member
Topic starter
 

Trindade, Sua sugestão foi bastante útil, no entanto, preciso incrementa-la com mais alguns detalhes, explico: ao clicar no botão inicial, vem o UserForm1; no ComboBox que se abre junto ao UserForm1, escolho a opção "MAI", cujo mês correspondente seria aberto e o UserForm1-ComboBox fechados; isso permitiria efetuar alterações na aba "MAI". Finalmente, após as modificações voltaria ao início, aba "Capa" onde consta o botão inicial para repetir todo o processo. Daria pra fazer isso? Desculpe se não fui claro o bastante. Obrigado pela atenção.

 
Postado : 27/08/2015 2:09 pm
(@trindade)
Posts: 0
New Member
 

Boa tarde, MauricioPF.

Não sei se é bem isso que gostaria de fazer,

Coloquei o UserForm como ShowModal = False, onde você consegue deixar o UserForm visível e ao mesmo tempo usar a Plan que esta ativa.
No UserForm foi criado um botão de nome CAPA, ao clicar nele retorna para a Plan("Capa") e encerra o UserForm.

Caso não seja isso da pra inserir um botão em cada Plan com Hyperlink direcionado para a Plan("Capa").
Se quiser fechar o UserForm após selecionar o mês basta tirar o comentário Unload Me na Sub ComboBox1_Change().

 
Postado : 27/08/2015 2:49 pm
(@mauriciopf)
Posts: 0
New Member
Topic starter
 

Trindade, perfeita sugestão. Funcionou como o esperado. Muito obrigado pelo teu auxilio; poupaste-me muito tempo.
Abrçs.

 
Postado : 27/08/2015 5:48 pm