Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Checkbox eocultar l...
 
Notifications
Clear all

Checkbox eocultar linha Marcada em Userform

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

Pessoal sou novo aqui no forum, e também estou desenvolvendo agora meus conhecimentos em VBA.
me deparei com uma situação ao executar uma macro simples de Ocultar/Mostrar linha.

Meu userfom vem com as opções de Checkbox para ocultar/monstrar a linha, mas, quero que ele ja venha "desmarcado" apenas se a linha ja estiver oculta.
Imagienei o seguinte código, mas, não deu certo. Alguma dica:

Private Sub CheckBox1_Click()
If Rows("32:32").EntireRow.Hidden = False Then
Me.CheckBox1.Enabled = True
Else
Me.CheckBox1.Enabled = False
End If

If Rows("32:32").EntireRow.Hidden = False Then
Rows("32:32").EntireRow.Hidden = True
ElseIf Rows("32:32").EntireRow.Hidden = True Then
Rows("32:32").EntireRow.Hidden = False
End If
End Sub

Obrigado a todos

 
Postado : 12/04/2015 8:34 pm
 laennder
(@laennder)
Posts: 62
Trusted Member
 

Olá eusodan, vamos ao que deseja.

Para que o seu chebox já venha marcado você deve fazer isso ao iniciar o formulário.

Private Sub UserForm_Initialize()
   Me.CheckBox1.Value= Not Rows(32).Hidden
End Sub

Agora você usa o evento Click para ocultar ou não a linha.

Private Sub CheckBox1_Click()
   Rows(32).EntireRow.Hidden = Not Me.CheckBox1.Value
End Sub

Veja se é isso que você quer

Ps. Dei uma otimizada no código. Não é necessário fazer condições IF

 
Postado : 12/04/2015 8:43 pm
 eusoudan
(@eusoudan)
Posts: 0
New Member
Topic starter
 

Caro Laennder!!!
ficou "show" de bola, realmente assim não necessita do If.
Muito Obrigado.
Abs

 
Postado : 14/04/2015 7:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico