Referencing a big number of ToggleButtons

[Stavarek]

I have a table which has a ToggleButton next to each line.
I would like to write a script that does something for each line of the table, but only if the ToggleButton on that line is pressed.

Is there a way to define the if condition in an elegant way?

I would imagine something like:

For i = 1 To 100
if ("ToggleButton" & (i + 29)).Value = True Then
'DO SOMETHING
End If
Next i

Or:

For i = 1 To 100
if CallByName(("ToggleButton" & (i + 29)), Value, VbGet) = True Then
'DO SOMETHING
End If
Next i

Unfortunately, none of these above work and I have searched for hours trying to find a solution without having to write down 100 different button names into a collection or something...
Please help me.

 

[RoryA]

Perhaps like this:

For i = 1 To 100
if Activesheet.OleObjects("ToggleButton" & (i + 29)).Object.Value = True Then
'DO SOMETHING
End If
Next i

 

[Stavarek]

Perhaps like this:

For i = 1 To 100
if Activesheet.OleObjects("ToggleButton" & (i + 29)).Object.Value = True Then
'DO SOMETHING
End If
Next i

Thank you, this works perfect!

 

[jmacleary]

Hi there. If you associate each toggle button with the cell underneath it, you can test the value of that cell directly. e.g. if your toggle buttons are associated with rows in column A, then this loop would do it:

For i = 1 To 100
  if Range("A" & (i + 29)).value= True Then
       'DO SOMETHING
  End If
Next i