Ocultar linhas atra...
 
Notifications
Clear all

Ocultar linhas através de um checkbox

6 Posts
2 Usuários
0 Reactions
2,458 Visualizações
(@bossan)
Posts: 21
Eminent Member
Topic starter
 

Amigos,
sou novo no fórum e estou sofrendo para realizar um controle aparentemente simples.
Tenho 3 checkbox que quando marcados deverão exibir linhas e quando desmarcados devem ocultar linhas.
check box xx - desmarcado ocultar linha 11
check box yy - desmarcado ocultar linha 12
check box zz - desmarcado ocultar linha 13
Alguém pode ajudar. Se ajudar o arquivo segue anexo.
ABraço

 
Postado : 05/12/2013 8:17 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente assim.

Sub Caixadeseleção3_Clique()
If [A16].Value = True Then
Range("11:11").Select
Selection.EntireRow.Hidden = True

Else
Range("11:11").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Sub Caixadeseleção4_Clique()
If [A17].Value = True Then
Range("12:12").Select
Selection.EntireRow.Hidden = True

Else
Range("12:12").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Sub Caixadeseleção5_Clique()
If [A18].Value = True Then
Range("13:13").Select
Selection.EntireRow.Hidden = True

Else
Range("13:13").Select
Selection.EntireRow.Hidden = False
End If
End Sub

Segue o modelo em:
http://www.sendspace.com/file/gdewsh

Att

 
Postado : 05/12/2013 8:32 am
(@bossan)
Posts: 21
Eminent Member
Topic starter
 

Fantástico. Ficou perfeito.
Valeu!

 
Postado : 06/12/2013 4:10 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu fico feliz por ajudar!!

Precisando, sabe onde nos encontrar!

Att ;)

 
Postado : 06/12/2013 6:03 pm
(@bossan)
Posts: 21
Eminent Member
Topic starter
 

Alexandre,
bom dia.
Estava atualizando a planilha e me deparei com um problema.
Como faço para que a macro dos checkbox funcionem, quando crio nova aba e copio todos os dados e formatação da aba original. Verifiquei que na cópia, os checkbox mudam de nome, mas mesmo alterando o nome e atribuindo novamente a macro, aparece um error 400.
Abraço.

 
Postado : 13/12/2013 8:43 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

tente mudar o nome da checkbox (Sub Caixadeseleção3_Clique().......Sub Caixadeseleção4_Clique()...........Sub Caixadeseleção5_Clique()............................)

Att

 
Postado : 13/12/2013 10:13 am