Radio buttons in group box --> linked cell

  • Thread starter Thread starter dgold82
  • Start date Start date
D

dgold82

I have about 200 separate group boxes with different numbers of radio buttons
in them. I am now at the point where I need to link each set of radio buttons
within each box to a specific cell. Is there an easy way of doing this
without having to select each each button and pointing them? I have about 4
buttons in each group box so I have been selecting 4 at a time and right
clicking to point and would rather not have to repeat that over 200 times.

Thanks.
 
Hi dgold82

Try this... It will link each Option Button to the top left cell of the
groupbox it is in.

Sub LinkOptBtns()
Dim GrpBox As GroupBox
Dim OptBtn As OptionButton
For Each OptBtn In ActiveSheet.OptionButtons
With OptBtn
.LinkedCell = .GroupBox.TopLeftCell.Address
End With
Next
End Sub

HTH
Trevor Williams
 
Interesting, I'll give it a try. I was actually hoping to put them down a
specific column--say D1:D200. But now that I think about it how would I know
which group went to which cell in colomn "D"?
 
Nevermind. It worked amazingly! Thank you!

Trevor Williams said:
Hi dgold82

Try this... It will link each Option Button to the top left cell of the
groupbox it is in.

Sub LinkOptBtns()
Dim GrpBox As GroupBox
Dim OptBtn As OptionButton
For Each OptBtn In ActiveSheet.OptionButtons
With OptBtn
.LinkedCell = .GroupBox.TopLeftCell.Address
End With
Next
End Sub

HTH
Trevor Williams
Click to expand...
 
Back
Top