Notifications
Clear all

Inserir linha usando o Checkbox dentro da Planilha quando clicado

6 Posts
2 Usuários
0 Reactions
1,229 Visualizações
(@radaxian)
Posts: 4
New Member
Topic starter
 

Boa tarde!

Gostaria de uma ajuda por gentileza.

Tenho 01 Checkbox na Plan1 e queria que ao clicar nele, ele adicionasse uma linha na Plan2 a partir da linha 20 e se tirasse o clique, esta mesma linha fosse excluída

muito grato

 

 
Postado : 07/10/2020 2:04 pm
Tags do Tópico
Mauro Coutinho
(@coutinho)
Posts: 95
Estimable Member
 

@radaxian

Clique com o botão direito na aba Plan1, escolha Exibir código e cole essa instrução:

 

Private Sub CheckBox1_Click()
Dim sht2 As Worksheet

Set sht2 = Worksheets("Plan2")

If CheckBox1.Value = True Then
sht2.Range("A20").EntireRow.Insert
Else
sht2.Range("A20").EntireRow.Delete
End If

End Sub
 
Postado : 07/10/2020 2:35 pm
(@radaxian)
Posts: 4
New Member
Topic starter
 

@coutinho

Muito grato amigo. exatamente isso.

 

Saudações

 

 
Postado : 07/10/2020 2:42 pm
(@radaxian)
Posts: 4
New Member
Topic starter
 

@coutinho

Abusando um pouco mais da ajuda que vc me deu aqui...

E se eu quisesse em vez de inserir e excluir a linha, apenas ocultar e reexibir a linha 20 na plan2...teria como adaptar o código?

Tentei "jogar" um .Hidden ali no código e não consegui 🙁

se não der, e me viro assim mesmo.

 

 

grato novamente

 

 
Postado : 07/10/2020 3:41 pm
Mauro Coutinho
(@coutinho)
Posts: 95
Estimable Member
 

@radaxian

Troque as linhas por essas :

'Ocultar
sht2.Range("A20").EntireRow.Hidden = True

'Exibir
sht2.Range("A20").EntireRow.Hidden = False
 
Postado : 07/10/2020 4:14 pm
(@radaxian)
Posts: 4
New Member
Topic starter
 

@coutinho

Show!!!

Muito grato novamente

 
Postado : 07/10/2020 4:20 pm