multiple toggle buttons

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
Actually, what I meant was...
can I use a for i=1 to 4

togglebutton(i)

cell(Ai)="Something"
next i

thanks
 
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.
 
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)
 
Back
Top