Ir ao conte√ļdo
  • Cadastre-se
ROBAOCIS

Excel RESOLVIDO Macros para Checkbox Excel

Posts recomendados

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites
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...

Compartilhar este post


Link para o post
Compartilhar em outros sites
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"

Compartilhar este post


Link para o post
Compartilhar em outros sites
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?

Compartilhar este post


Link para o post
Compartilhar em outros sites
private sub checkbox1_click()
    if checkbox1.value = true then
        macro para checkbox marcado
    else
        macro para checkbox desmarcado
    end if
end sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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

Compartilhar este post


Link para o post
Compartilhar em outros sites
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
        

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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...

Compartilhar este post


Link para o post
Compartilhar em outros sites
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.

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. √Č f√°cil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

N√£o permitimos a c√≥pia ou reprodu√ß√£o do conte√ļdo do nosso site, f√≥rum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

√ó
√ó
  • Criar novo...

celulares-popup.jpg

iPhone + Android + troca de vidro + reparo em placa + hard reset + instalação de ROM + e mais!

CLIQUE AQUI E CONFIRA AGORA MESMO!