Notifications
Clear all

GRAVAR VÁRIAS CHECKBOX

4 Posts
3 Usuários
0 Reactions
956 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, Boa Tarde!
Preciso da ajuda de vocês...
Criei um formulário com algumas checkbox:
 Amarelo  Vermelho  Azul  Preto

Criei um botão chamado GRAVAR e ao clicar sobre ele gostaria que as opções que estivessem marcadas fosse copiadas para uma única célula no seguinte formato: Amarelo / Vermelho / Azul...

Eu coloquei o código:

If CheckBox1.Value = True Then
ActiveCell.Offset(0, 14).Value = "AMARELO"
End If
If CheckBox2.Value = True Then
ActiveCell.Offset(0, 14).Value = "VERMELHO"
End If

Mas este código está copiando apenas uma checkbox e não todas que estão marcadas.

 
Postado : 17/08/2016 10:57 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

gracielli.vida,

Boa tarde!

Por gentileza, anexe, aqui mesmo no fórum, um arquivo exemplo compactado com .ZIP. Pode ser com dados fictícios, porém exatamente com o layout real da sua planilha original.

 
Postado : 17/08/2016 12:41 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue a planilha de exemplo.

 
Postado : 17/08/2016 2:09 pm
(@brunoxro)
Posts: 0
New Member
 

Boa tarde gracielli.vida,

Em anexo montei um código, teste ele.

Um detalhe, notei que seu código tem alguns problemas. Por exemplo:

'    'Carregar os dados digitados nas caixas de texto para a planilha
'    ActiveCell.Offset(0, 0).Value = CheckBox1.Value
'    ActiveCell.Offset(0, 0).Value = CheckBox2.Value
'    ActiveCell.Offset(0, 0).Value = CheckBox3.Value
'    ActiveCell.Offset(0, 0).Value = CheckBox4.Value

Dessa forma que você colocou, a célula ativa vai receber uma valor (True ou False) atrás do outro e ficar com o último. Pois o Offset está referenciando a mesma célula 4 vezes.
Para capturar o que está escrito em um CheckBox você deve usar o Caption, por exemplo: CheckBox1.Caption = AZUL

Para aprender mais de VBA de uma olhada em vídeos do Youtube, como: https://www.youtube.com/playlist?list=P ... TS17d6sykT

att,

 
Postado : 17/08/2016 3:33 pm