multiple toggle buttons

[Guest]

Hello,

I have multiple toggle buttons in an excel sheet that I need to generate
some behavior.

Although, they are lined up to perform identical tasks. For example,
Toggle Buttons 1, 2, 3, and 4 will modify cell A1, B1, C1 and D1.

Instead of having to create code for each individual togglebuttons, such as
sub togglebutton1_click()
----
end sub

togglebutton2_click()
----
end sub

is there any way that I can use the case function, for example

case is 1

 

[Guest]

Actually, what I meant was...
can I use a for i=1 to 4

togglebutton(i)

cell(Ai)="Something"
next i

thanks

 

[Guest]

I haven't tried it but this might work...
Catch the on_change event and use the address from the "Target" as the input
into your case statement.

 

[Bob Phillips]

Nelson,

The individual click events are required to respond to the toggle clicks.
Although you could set up a generic routine that is called from each of
these, with a variable that uses the toggle number, such as

Private Sub ToggleButton1_Click()
ToggleAction 1
End Sub

Private Sub ToggleButton2_Click()
ToggleAction 2
End Sub

etc.

Sub ToggleAction(idx As Long)

Range("A" & idx).Value = "Something"

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)