Usuário com melhor resposta
CheckBox e OptionButton

Pergunta
-
Bom dia!!
Por gentileza, me ajude quem puder
Criei um formulário qual possuí CheckBox e OptionButton. Preciso atribuir um valor para os mesmo, que, no caso da CheckBox se marcada ela escreva "X" (em determinada célula) ou deixa em branco se não marcada. E na OptionButton, com 3 opções, (1, 2 e 3), escreve o respectivo número, também em determinada célula.
Desde já, mtu obrigado
Respostas
-
Bom dia Alison,
Se o CheckBox estiver na planilha (e não em um UserForm) e for um activex control (não form), você pode fazer uso dos eventos do CheckBox (ex. evento Click, disparado ao clicar no checkbox).
Use as propriedades do checkbox para verificar o valor do checkbox (true/false) e atribua o valor à célula desejada. Ex:
Private Sub CheckBox1_Click()
If Sheet1.CheckBox1 Then
Range("A1") = "X"
Else
Range("A1") = ""
End If
End SubEssa é uma solução simples. Da mesma forma você pode fazer com o OptionButton.
- Marcado como Resposta AlisonMoura quinta-feira, 10 de abril de 2014 13:13
-
Alisson
Use as propriedade e eventos da mesma forma que fez com o checkbox, substituindo o valor da célula pelo valor da opção escolhida.
- Marcado como Resposta AlisonMoura quinta-feira, 10 de abril de 2014 13:13
Todas as Respostas
-
Bom dia Alison,
Se o CheckBox estiver na planilha (e não em um UserForm) e for um activex control (não form), você pode fazer uso dos eventos do CheckBox (ex. evento Click, disparado ao clicar no checkbox).
Use as propriedades do checkbox para verificar o valor do checkbox (true/false) e atribua o valor à célula desejada. Ex:
Private Sub CheckBox1_Click()
If Sheet1.CheckBox1 Then
Range("A1") = "X"
Else
Range("A1") = ""
End If
End SubEssa é uma solução simples. Da mesma forma você pode fazer com o OptionButton.
- Marcado como Resposta AlisonMoura quinta-feira, 10 de abril de 2014 13:13
-
Consegui de um modo mais ou menos parecido:
Private Sub CheckBox_Click()
Sheets("Planilha").Activate
i = Sheets("Planilha").Range("a507").Rows.End(xlUp).Row + 1
If CheckBox.Value = True Then
Sheets("Planilha").Cells(i, "L") = "X"
Else
Sheets("Planilha").Cells(i, "L") = ""
End If
End SubAgora só preciso resolver o Option Button
onde eu tenho 3 opções (1, 2 e 3) e ao selecionar e incluir o lançamento ela escreva o valor atribuído (1, 2 ou 3)
Muito Obrigado pela dica
Grande abraço -
Alisson
Use as propriedade e eventos da mesma forma que fez com o checkbox, substituindo o valor da célula pelo valor da opção escolhida.
- Marcado como Resposta AlisonMoura quinta-feira, 10 de abril de 2014 13:13
-