none
CheckBox e OptionButton RRS feed

  • 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
    segunda-feira, 7 de abril de 2014 12:41

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 Sub

     

    Essa é 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
    quarta-feira, 9 de abril de 2014 13:27
  • 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
    quinta-feira, 10 de abril de 2014 12:39

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 Sub

     

    Essa é 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
    quarta-feira, 9 de abril de 2014 13:27
  • 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 Sub

    Agora 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

    quarta-feira, 9 de abril de 2014 13:44
  • 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
    quinta-feira, 10 de abril de 2014 12:39
  • Perfeito, simples assim kkk

    Muitíssimo obrigado, Daniel

    Grande abraço
    quinta-feira, 10 de abril de 2014 13:12