Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CheckBox (caixa de ...
 
Notifications
Clear all

CheckBox (caixa de seleção) que oculte/reexiba linha

 
2024 - VBA & Macros
Post Recente por ricardodva 8 anos atrás
4 Posts
3 Usuários
0 Reactions
708 Visualizações
RSS
 ricardodva
(@ricardodva)
Posts: 2
New Member
Topic starter
 

Boa tarde,
Procurei algum tópico que tratasse do assunto mas não encontrei.
O problema é o seguinte, estou com dificuldade para fazer uma checkbox que quando marcada ela exiba determinada linha e quando desmarcada oculte essa linha.
A caixa de seleção está em um aba diferente da linha que ela deve reexibir/ocultar.
Cheguei no seguinte comando mas não funcionou:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("Base Gráfico").Visible = True
    Sheets("Base Gráfico").Select
    Rows("5:5").Select
    Selection.EntireRow.Hidden = False
    Sheets("Base Gráfico").Visible = False
Sheets("Gráfico").Select
Else
    Sheets("Base Gráfico").Visible = True

    Sheets("Base Gráfico").Select
    Rows("5:5").Select
    Selection.EntireRow.Hidden = True
    Sheets("Base Gráfico").Visible = False
Sheets("Gráfico").Select
End If
End Sub

Sou leigo ainda no assunto então pode ser que esteja fazendo bobagem mas caso alguém possa dar uma luz eu agradeço.
Abraços!

 
Postado : 25/11/2016 12:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ricardo, não entendi direito a lógica que está utilizando, uma vez que seleciona a aba "Base Gráfico" oculta ou exibe a linha e depois seleciona a aba "Gráfico", ou seja em nenhum momento está ficando na aba "Base Gráfico", mas se é isto, troque sua rotina pela a abaixo :

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
        
        With Sheets("Base Gráfico")
            .Rows("5:5").EntireRow.Hidden = False
            .Visible = False
        End With
        
        Sheets("Gráfico").Select
        
    Else
        
         With Sheets("Base Gráfico")
            .Rows("5:5").EntireRow.Hidden = True
            .Visible = False
        End With
        
        Sheets("Gráfico").Select
    
    End If

End Sub

[]s

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

 
Postado : 25/11/2016 1:25 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tenta adequar este

Private Sub CheckBox1_Click()


If CheckBox1.Value = True Then

Sheets("Base Grafico").Rows("5:5").EntireRow.Hidden = True
Else
Sheets("Base Grafico").Rows("5:5").EntireRow.Hidden = False
End If



End Sub

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 : 25/11/2016 1:31 pm
 ricardodva
(@ricardodva)
Posts: 2
New Member
Topic starter
 

Meu caro, era exatamente isso. Muito obrigado!

ricardo, não entendi direito a lógica que está utilizando, uma vez que seleciona a aba "Base Gráfico" oculta ou exibe a linha e depois seleciona a aba "Gráfico", ou seja em nenhum momento está ficando na aba "Base Gráfico", mas se é isto, troque sua rotina pela a abaixo :

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
        
        With Sheets("Base Gráfico")
            .Rows("5:5").EntireRow.Hidden = False
            .Visible = False
        End With
        
        Sheets("Gráfico").Select
        
    Else
        
         With Sheets("Base Gráfico")
            .Rows("5:5").EntireRow.Hidden = True
            .Visible = False
        End With
        
        Sheets("Gráfico").Select
    
    End If

End Sub

[]s

 
Postado : 29/11/2016 1:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico