Excel Macros para Checkbox Excel

[ROBAOCIS]

Boa tarde! Preciso gravar duas macros para um mesmo Checkbox, uma para ser executada caso marque-o e outra caso desmarque-o. Como proceder ?

[Midori]

@ROBAOCIS No evento click do checkbox verifique a propriedade Value e chame uma macro em True (marcado) e a outra em False (desmarcado).

[ROBAOCIS]

8 minutos atrás, Midori disse:

@ROBAOCIS No evento click do checkbox verifique a propriedade Value e chame uma macro em True (marcado) e a outra em False (desmarcado).

Sub Macro2()

End Sub
Sub TrocaOleo2()
'
' TrocaOleo2 Macro
'

'
    Sheets("FIAT").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B4").Select
    Sheets("Planilha1").Select
End Sub
Sub TrocaOleo0()
'
' TrocaOleo0 Macro
'

'
    Sheets("FIAT").Select
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("B4").Select
    Sheets("Planilha1").Select
End Sub

Não entendi...Estão assim, as duas macros atribuídas ao checkbox...

[Midori]

12 minutos atrás, ROBAOCIS disse:

Não entendi...Estão assim, as duas macros atribuídas ao checkbox...

Você não deve atribuir as macros, deve chamar no evento click.

 

É só clicar com o botão direto e escolher "Exibir Código"

[ROBAOCIS]

28 minutos atrás, Midori disse:

Você não deve atribuir as macros, deve chamar no evento click.

 

É só clicar com o botão direto e escolher "Exibir Código"

Ok, cliquei exibir código, como chamo as macros?

[Midori]

private sub checkbox1_click()
    if checkbox1.value = true then
        macro para checkbox marcado
    else
        macro para checkbox desmarcado
    end if
end sub

 

[ROBAOCIS]

12 minutos atrás, Midori disse:

private sub checkbox1_click()
    if checkbox1.value = true then
        macro para checkbox marcado
    else
        macro para checkbox desmarcado
    end if
end sub

 

Desculpa incomodar de novo kkk, mas aí eu só escrevo o nome da macro? Eu não consigo entender essa linguagem do excel kk

Sub TrocaOleo2() quando marcado e TrocaOleo0() quando desmarcado

[Midori]

1 minuto atrás, ROBAOCIS disse:

Desculpa incomodar de novo kkk, mas aí eu só escrevo o nome da macro?

Sim, é só substituir pelo nome da macro, p.ex se a macro chama Macro1 ficaria assim para o caso de marcado,

 

private sub checkbox1_click()
    if checkbox1.value = true then
        Call Macro1
        

 

[ROBAOCIS]

3 minutos atrás, Midori disse:

Sim, é só substituir pelo nome da macro, p.ex se a macro chama Macro1 ficaria assim para o caso de marcado,

 

private sub checkbox1_click()
    if checkbox1.value = true then
        Call Macro1
        

 

Deu certo! Muito obrigado mesmo! Só mais uma coisa, não sei se você percebeu que as macros servem para definir uma célula como 1 ou 2... Queria saber se não dá pra fazer isso direto do código do checkbox, sem criar macros...

[Midori]

4 minutos atrás, ROBAOCIS disse:

Deu certo! Muito obrigado mesmo! Só mais uma coisa, não sei se você percebeu que as macros servem para definir uma célula como 1 ou 2... Queria saber se não dá pra fazer isso direto do código do checkbox, sem criar macros...

Dá sim, é só substituir a linha que chama a macro pela definição do valor na célula, p.ex: Range("B3") = 2.

[ROBAOCIS]

@Midori Ok, muito obrigado! Resolvido!

adicionado 23 minutos depois

@Midori Boa noite, dá certo quando a célula faz parte da mesma planilha do botão, quando eu tento Range("Plan2!B3") = 2, por exemplo dá erro..

adicionado 46 minutos depois

45 minutos atrás, ROBAOCIS disse:

@Midori Ok, muito obrigado! Resolvido!

adicionado 23 minutos depois

@Midori Boa noite, dá certo quando a célula faz parte da mesma planilha do botão, quando eu tento Range("Plan2!B3") = 2, por exemplo dá erro..

Consegui do seguinte modo: Private Sub checkbox1_click()
    If CheckBox1.Value = True Then
        Worksheets("Plan2").Range("A1").Value = 2
    Else
       Worksheets("Plan2").Range("A1").Value = 1
    End If
End Sub