ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Activating/De-activating buttons (https://www.excelbanter.com/excel-programming/332483-activating-de-activating-buttons.html)

Nash

Activating/De-activating buttons
 
Is there a way to activate a macro button based on a value in a cell and then
de-activating the button if the value does not match?

Thanks,



abcd[_2_]

Activating/De-activating buttons
 
if the button objet vba's name is commandbutton1 on the Sheet1 object then:

Sheet1.CommandButton1.Enabled = false ' or true

the change event of this sheet may be used to detect a change on that sheet

example:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
CommandButton1.Enabled = Not CommandButton1.Enabled
End If
End Sub

Nash

Activating/De-activating buttons
 
How do I find the name of the button? Thanks,


"abcd" wrote:

if the button objet vba's name is commandbutton1 on the Sheet1 object then:

Sheet1.CommandButton1.Enabled = false ' or true

the change event of this sheet may be used to detect a change on that sheet

example:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
CommandButton1.Enabled = Not CommandButton1.Enabled
End If
End Sub


abcd[_2_]

Activating/De-activating buttons
 
Usually, the name is written inside the button when created. But you
also can find it in the VBA editor (the dropdown list: as you have
"General" or "worksheet" you now have the button object in the list. )


William Benson

Activating/De-activating buttons
 
If you mean a macro button on a command bar, I do not know how to do that
because I think they are either visible (added to the command bar) or not. I
don't think they can be disabled.


Assuming the "macro button" is a command button on a worksheet, yes.

Private Sub Worksheet_Change(ByVal Target As Range)

'test this by changing the value in cell A1
Const strTestValue = 5 'For example only

If ActiveSheet.Range("A1") = AcceptValue Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If

End Sub



"Nash" wrote in message
...
Is there a way to activate a macro button based on a value in a cell and
then
de-activating the button if the value does not match?

Thanks,






All times are GMT +1. The time now is 07:07 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com