Notifications

Clear all

ComboBox não fecha

2024 - VBA & Macros

Post Recente por MauricioPF 9 anos atrás

7 Posts

2 Usuários

0 Reactions

1,139 Visualizações

RSS

MauricioPF

(@mauriciopf)

Posts: 9

Active 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

(@trindade)

Posts: 278

Reputable 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.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

Postado : 24/08/2015 10:37 am

MauricioPF

(@mauriciopf)

Posts: 9

Active 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

(@trindade)

Posts: 278

Reputable 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.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

Postado : 25/08/2015 12:43 pm

MauricioPF

(@mauriciopf)

Posts: 9

Active 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

(@trindade)

Posts: 278

Reputable 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().

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

Postado : 27/08/2015 2:49 pm