Several Toggle Buttons with same Macros

[lusov]

Hi I have created a code for a Toggle button. However I need 50+ toggle buttons in the file with the same code.
Please, see the code below.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Value. Caption = "Include"
Range ("I5"). Value = 1
Else
ToggleButton1.Value. Caption = "Exclude"
Range ("I5"). Value = 0
End If

End Sub

I also need the I5 cell to change according to row number of Toggle Button.

Can you, please, help me with this?

 

[lusov]

Sorry I have a type there

[h=2][/h]

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1. Caption = "Include"
Range ("I5"). Value = 1
Else
ToggleButton1. Caption = "Exclude"
Range ("I5"). Value = 0
End If

End Sub


​

 

[MickG]

Perhaps this:-

Private Sub ToggleButton1_Click()
 With ToggleButton1
    If .Value = True Then
        .Caption = "Include"
        Cells(.TopLeftCell.Row, "I") = 1
    Else
        .Caption = "Exclude"
        Cells(.TopLeftCell.Row, "I") = 0
    End If
End With
End Sub

 

[lusov]

Perhaps this:-

Private Sub ToggleButton1_Click()
 With ToggleButton1
    If .Value = True Then
        .Caption = "Include"
        Cells(.TopLeftCell.Row, "I") = 1
    Else
        .Caption = "Exclude"
        Cells(.TopLeftCell.Row, "I") = 0
    End If
End With
End Sub

Hi Thanks a lot it worked. Only I don't know how to apply the same code to several toggle buttons with different names. Can you help me with that as well?

 

[MickG]

Not quite sure what the problem is,
To cover a number of buttons, you need to do this manually, by just inserting the same code in each "Toggle" button, you could possible do this with code , but for 50 buttons its not really worth it.
Perhaps your problem is something else ????