Hide button based on a cell value

[Johanna Gronlund]

Hello,

I have been trying to write a macro that would hide a button based on a cell
value (cell N20). Somehow, it doesn't work. If N20=1, the button should be
visible. If not, then it should be hidden.

The button is called Button 4388 and the sheet is called Results.

This is what I have come up with so far but as I said it doesn't work
(please don't laught, I'm a beginner!):

Sub HideButton()

Dim myButton As Button

With ActiveSheet
Set myButton = .Buttons("Button 4388")
If Range("N20").Value = "1" Then
..Visible = True
Else
..Visible = False
End If
End With

End Sub

 

[ozgrid.com]

It depends on what type of "Button" you mean?

Try;

Sub HideButton()

Dim myButton As Shape

With ActiveSheet
Set myButton = .Shape("Button 4388")
myButton.Visible = .Range("N20") = 1
End With

End Sub

 

[Johanna Gronlund]

Thanks for a quick reply.

It's a button from the form's control menu.

I tried the code but there is an error message which it highlights this row:
Set myButton = .Shape("Button 4388")

The error message is:
Run-time error '438'
Object doesn't support this property or method.

Johanna

 

[Bob Phillips]

Try this

Sub HideButton()
Dim myButton As Button

With ActiveSheet
Set myButton = .Buttons("Button 4388")
myButton.Visible = .Range("N20").Value = 1
End With

End Sub



--

HTH

Bob

Thanks for a quick reply.

It's a button from the form's control menu.

I tried the code but there is an error message which it highlights this
row:
Set myButton = .Shape("Button 4388")

The error message is:
Run-time error '438'
Object doesn't support this property or method.

Johanna

 

[Johanna Gronlund]

Thanks very much, that worked!!!

--
Johanna

Try this

Sub HideButton()
Dim myButton As Button

With ActiveSheet
Set myButton = .Buttons("Button 4388")
myButton.Visible = .Range("N20").Value = 1
End With

End Sub



--

HTH

Bob




.