Notifications
Clear all

Caixa de seleção

3 Posts
2 Usuários
0 Reactions
1,150 Visualizações
(@davi026)
Posts: 4
New Member
Topic starter
 

Bom dia...
Tenho um formulário (userform) que inseri várias caixas de seleção para o usuário selecionar as opções que deseja, porém, quero que as opções que foram selecionadas retornem a uma única célula do excel. Senão pelo menos retornar na próxima célula vazia seguinte. Tenho muitas caixa de seleções e quando verdadeiro, quero que estes retornem na mesma célula. Quando jogo outros checkbox na mesma célula e ambos são selecionados, a célula retorna vazia ou apenas com o último checkbox selecionado.
Exemplo:
Private Sub checkbox1_Click()
If checkbox1.Value = True Then Range("plan1!a1").Value = "Raio x;"
If checkbox1.Value = False Then Range("plan1!a1").Value = ""

Alguém tem este código?

Obrigado,

Davi Alexandre

 
Postado : 15/07/2014 7:22 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

davi026,

tem como postar aqui um exemplo compactado para ficar mais fácil alguém do fórum lhe ajudar?

Att,

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

 
Postado : 15/07/2014 7:35 am
(@davi026)
Posts: 4
New Member
Topic starter
 

Digamos, estou fazendo um formulário via userform que jogará os dados na planilha, até aí tudo bem. Neste formulário o usuário terá umas 20 caixas de seleção para selecionar, podendo selecionar uma, duas ou as 20 caixas. Quando selecionado esta caixa manda, se verdadeiro ou falso, para uma célula pré-determinada esses dados. Até aí tudo certo. O meu problema é que se for selecionado mais de uma, a célula que retorna os dados retorna com dados de apenas uma das caixas que foram selecionadas e não com as demais. Ex:

Sub...

If checkbox1.Value = True Then Range("plan1!a1").Value = "Raio x;"
If checkbox1.Value = False Then Range("plan1!a1").Value

If checkbox2.Value = True Then Range("plan1!a1").Value = "Tomografia;"
If checkbox2.Value = False Then Range("plan1!a1").Value

End

Se eu selecionar as duas caixas, apenas um dos dados retornará na célula, e eu precisaria que os dois ou mais retornassem caso selecionados.

 
Postado : 15/07/2014 8:55 am