Insert Option Button based on value

[pjw23]

I'm Looking to insert (2) option buttons into a area of my workshee
when the value in another cell equals a certain value. I haven't bee
able to find out how to do it yet, but I'm sure there's gotta be
somewhat easy way for this. Can someone please help

 

[E Oveson]

Here's an example. You would put something like this into the code for the
sheet you want this to apply to. There's no error checking or anything.
Change "A1" to the cell you want and the value 1 to whatever you want. Let
me know if you need any help tweaking this to your needs.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "A1" Then
If Target.Value = 1 Then

ActiveSheet.OLEObjects.Add ClassType:="Forms.OptionButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, _
Width:=80, Height:=35

ActiveSheet.OLEObjects.Add ClassType:="Forms.OptionButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=130, Top:=40, _
Width:=80, Height:=35

End If
End If
End Sub

 

[norika]

Is there any other methods to do, other than vba?

norik

 

[E Oveson]

I don't think there would be any other way. There's a conditional =IF()
function, but I don't see any function for embedding a control. So I think
you would be stuck with VBA.