Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para ocultar ...
 
Notifications
Clear all

Macro para ocultar e exibir linhas de acordo com criterios

 
2024 - VBA & Macros
Post Recente por TutoElizeu 8 anos atrás
4 Posts
3 Usuários
0 Reactions
906 Visualizações
RSS
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

Olá galera, essa é bem difícil, mas vou tentar ver se algum mestre pode me ajudar.

Eu tenho uma planilho onde preciso fazer a distribuição das metas de orçamento por representante, produto e fabrica.
Consegui fazer uma logica bem interessante e inseri na celula B2 um formulário onde poderei escolher o cenario.

O que eu preciso é de uma macro que quando eu escolha o CENARIO 2 automaticamente oculte as linhas: 27 até a 132, pois nestas linhas eu tenho os valores do CENARIO 1
E quando eu escolher o CENARIO 1, reexiba essas linhas que foram ocultas e oculte as linhas 135 até 219.

Ou seja de acordo com o cenário escolhido a macro mostrara somente as linhas desse cenario.

É possivel me ajudar?

Obrigado.

 
Postado : 11/10/2016 2:54 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Nao é mais facil usar auto filtro?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/10/2016 4:46 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Elizeu, incluí a Macro na caixa de combinação dos controles activeX, mas mantive a sua original (pode apagar se o resultado for o esperado).

Segue anexo.

Private Sub ComboBox1_Change()
Range("B2") = CInt(Right(ComboBox1.Value, 1))

Select Case ComboBox1.Value
Case "CENARIO 1"
Rows("27:132").Hidden = False
Rows("135:219").Hidden = True
Case "CENARIO 2"
Rows("27:132").Hidden = True
Rows("135:219").Hidden = False
End Select

End Sub

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

 
Postado : 11/10/2016 4:54 pm
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

Grande Edson! Você é um gênio!

Deu certíssimo, muito obrigado!

Grande abraço!

 
Postado : 11/10/2016 6:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico