Como fazer um botão ficar habilitado e desabilitado dependendo de um valor de uma célula vinculada (lista de combinação drop-down)

Question

O "CommandButoon4" não entende a alteração da célula "I5" que é alterada por uma caixa de combinação (Sim, Não) que retorna em uma célula vínculada 1 e 2

Segue código abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("I5").Value = 1 Then

        Shapes("CommandButton4").Visible = True

    End If

    If Range("I5").Value = 2 Then

        Shapes("CommandButton4").Visible = False

    End If

End Sub

Answer 1

Supondo que o Botão e o Checkbox sejam Controles ActiveX  (não Controles de Formulário), isto deve funcionar

Private Sub CheckBox1_Click()

     If CheckBox1.Value = True Then

        MsgBox "ligado"

        ActiveSheet.OLEObjects("CommandButton4").Enabled = True

    Else

        MsgBox "desligado"

        ActiveSheet.OLEObjects("CommandButton4").Enabled = False

    End If

End Sub

Depois deleta as msgbox (Usei só para fazer debug)

M.

Answer 2

Puxa que mistura, o botão (CommandButton) é ActiveX e a caixa de combinação (Drop-down) é controle de formulário

Answer 3

Se os dois forem controles de formulário, talvez algo assim

Sub Test()

    MsgBox "Eu sou o Botão4"

End Sub

Sub CheckBox1_Click()

    Dim s1 As Shape, s2 As Shape

    Set s1 = ActiveSheet.Shapes("Botão4")

    Set s2 = ActiveSheet.Shapes("CheckBox1")

    s2.Select

    If Selection.Value = xlOn Then

        s1.OnAction = "Test"

    Else

        s1.OnAction = ""

    End If

    Range("A1").Select

End Sub

M.

Answer 4

Fabio,

Os dois são controle de formulário? O Checkbox e o botão?

M.

Answer 5

Infelizmente é um controle de formulário, e para trocar dará um enorme trabalho, pois sõa mais de 100 itens, já com códigos, mas valeu!!