Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Command Button Help
I have several command buttons that I need to enable and disable depending on
the one that is clicked currently my code reads like this. CommandButton1 Click() CommandButton1.Enabled = False 'because it was clicked CommandButton2.Enabled = Ture 'because now it can be clicked CommandButton2.Enabled = Ture 'because now it can be clicked CommandButton2.Enabled = Ture 'because now it can be clicked This continues for every commandbutton click procedure. I would like to rewrite the code to go something like this but I cannot get it to work. Please Help Option Explicit Dim Choice CommandButtonChoice Sub() CommandButton1.Enabled = True CommandButton2.Enabled = True CommandButton3.Enabled = True CommandButton4.Enabled = True Choice.Enabled = False <=============This turns the choice off End Sub CommandButton1 Click() Choice=CommandButton1 <=============Choice to turn off Call CommandButtonChoice End Sub Repeat for each click procedure |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Command Button Help
Hi again Kenny,
I assume that this is a follow on from my last reply to you. You need to use Set when assigning and object to a variable. Option Explicit Dim Choice As Object Sub CommandButtonChoice() MsgBox "CommandButtonChoice() called" CommandButton1.Enabled = True CommandButton2.Enabled = True CommandButton3.Enabled = True CommandButton4.Enabled = True Choice.Enabled = False End Sub Sub CommandButton1_Click() MsgBox "CommandButton1_Click()" Set Choice = CommandButton1 Call CommandButtonChoice End Sub Regards, OssieMac "Kenny" wrote: I have several command buttons that I need to enable and disable depending on the one that is clicked currently my code reads like this. CommandButton1 Click() CommandButton1.Enabled = False 'because it was clicked CommandButton2.Enabled = Ture 'because now it can be clicked CommandButton2.Enabled = Ture 'because now it can be clicked CommandButton2.Enabled = Ture 'because now it can be clicked This continues for every commandbutton click procedure. I would like to rewrite the code to go something like this but I cannot get it to work. Please Help Option Explicit Dim Choice CommandButtonChoice Sub() CommandButton1.Enabled = True CommandButton2.Enabled = True CommandButton3.Enabled = True CommandButton4.Enabled = True Choice.Enabled = False <=============This turns the choice off End Sub CommandButton1 Click() Choice=CommandButton1 <=============Choice to turn off Call CommandButtonChoice End Sub Repeat for each click procedure |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Command Button Help
This worked thanks!
"OssieMac" wrote: Hi again Kenny, I assume that this is a follow on from my last reply to you. You need to use Set when assigning and object to a variable. Option Explicit Dim Choice As Object Sub CommandButtonChoice() MsgBox "CommandButtonChoice() called" CommandButton1.Enabled = True CommandButton2.Enabled = True CommandButton3.Enabled = True CommandButton4.Enabled = True Choice.Enabled = False End Sub Sub CommandButton1_Click() MsgBox "CommandButton1_Click()" Set Choice = CommandButton1 Call CommandButtonChoice End Sub Regards, OssieMac "Kenny" wrote: I have several command buttons that I need to enable and disable depending on the one that is clicked currently my code reads like this. CommandButton1 Click() CommandButton1.Enabled = False 'because it was clicked CommandButton2.Enabled = Ture 'because now it can be clicked CommandButton2.Enabled = Ture 'because now it can be clicked CommandButton2.Enabled = Ture 'because now it can be clicked This continues for every commandbutton click procedure. I would like to rewrite the code to go something like this but I cannot get it to work. Please Help Option Explicit Dim Choice CommandButtonChoice Sub() CommandButton1.Enabled = True CommandButton2.Enabled = True CommandButton3.Enabled = True CommandButton4.Enabled = True Choice.Enabled = False <=============This turns the choice off End Sub CommandButton1 Click() Choice=CommandButton1 <=============Choice to turn off Call CommandButtonChoice End Sub Repeat for each click procedure |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Command button | Excel Discussion (Misc queries) | |||
Command Button | Excel Discussion (Misc queries) | |||
VBA Command Button | Excel Discussion (Misc queries) | |||
command button | Excel Discussion (Misc queries) | |||
Command Button | Excel Discussion (Misc queries) |