Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
GRAVAR VÁRIAS CHECK...
 
Notifications
Clear all

GRAVAR VÁRIAS CHECKBOX

 
2024 - VBA & Macros
Post Recente por brunoxro 8 anos atrás
4 Posts
3 Usuários
0 Reactions
972 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@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.

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

 
Postado : 17/08/2016 10:57 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

Segue a planilha de exemplo.

Plan_Exemplo.xlsm

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

 
Postado : 17/08/2016 2:09 pm
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable 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
Forum Jump:
  Tópico Anterior
Próximo Tópico