Mulrip Radio Button Query

D

Donal28

Well-known Member
Joined
Apr 23, 2010
Messages
527
Hi All

I have a user form for with 70 categories...each category have a choice of 0, 1 or 2 which I have used radion buttons for. I have successfully managed to to set it up so that the user can choose 0,1 or 2 for each seperate category but now I need to add more choices(75 now) and am finding that after 70 I can cannot pick a radio button for each individual choice i.e after the 69th choice the radio radion button will only allow me to choose one option of 0,1 or 2 from 70 -74 see the code below i am using . I can choose 69 individual options of 0,1 or 2 but from 70 -74(highlighted in Red) I can only choose 1 option i.e th radio buttion keeps jumping around.


Any help on this would be very much apprecaited

Thanks
Donal


ActiveWorkbook.Sheets("B2 Exam 29000").Activate
Range("K1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
If OptionButton4 = True Then
ActiveCell.Offset(0, 0).Value = "0"
ElseIf OptionButton2 = True Then
ActiveCell.Offset(0, 0).Value = "1"
Else
ActiveCell.Offset(0, 0).Value = "2"
End If
If OptionButton7 = True Then
ActiveCell.Offset(0, 1).Value = "0"
ElseIf OptionButton6 = True Then
ActiveCell.Offset(0, 1).Value = "1"
Else
ActiveCell.Offset(0, 1).Value = "2"
End If
If OptionButton8 = True Then
ActiveCell.Offset(0, 2).Value = "0"
ElseIf OptionButton9 = True Then
ActiveCell.Offset(0, 2).Value = "1"
Else
ActiveCell.Offset(0, 2).Value = "2"
End If
If OptionButton13 = True Then
ActiveCell.Offset(0, 3).Value = "0"
ElseIf OptionButton12 = True Then
ActiveCell.Offset(0, 3).Value = "1"
Else
ActiveCell.Offset(0, 3).Value = "2"
End If
If OptionButton14 = True Then
ActiveCell.Offset(0, 4).Value = "0"
ElseIf OptionButton15 = True Then
ActiveCell.Offset(0, 4).Value = "1"
Else
ActiveCell.Offset(0, 4).Value = "2"
End If
If OptionButton19 = True Then
ActiveCell.Offset(0, 5).Value = "0"
ElseIf OptionButton18 = True Then
ActiveCell.Offset(0, 5).Value = "1"
Else
ActiveCell.Offset(0, 5).Value = "2"
End If
If OptionButton20 = True Then
ActiveCell.Offset(0, 6).Value = "0"
ElseIf OptionButton21 = True Then
ActiveCell.Offset(0, 6).Value = "1"
Else
ActiveCell.Offset(0, 6).Value = "2"
End If
If OptionButton25 = True Then
ActiveCell.Offset(0, 7).Value = "0"
ElseIf OptionButton24 = True Then
ActiveCell.Offset(0, 7).Value = "1"
Else
ActiveCell.Offset(0, 7).Value = "2"
End If
If OptionButton50 = True Then
ActiveCell.Offset(0, 8).Value = "0"
ElseIf OptionButton51 = True Then
ActiveCell.Offset(0, 8).Value = "1"
Else
ActiveCell.Offset(0, 8).Value = "2"
End If
If OptionButton31 = True Then
ActiveCell.Offset(0, 9).Value = "0"
ElseIf OptionButton54 = True Then
ActiveCell.Offset(0, 9).Value = "1"
Else
ActiveCell.Offset(0, 9).Value = "2"
End If
If OptionButton124 = True Then
ActiveCell.Offset(0, 10).Value = "0"
ElseIf OptionButton123 = True Then
ActiveCell.Offset(0, 10).Value = "1"
Else
ActiveCell.Offset(0, 10).Value = "2"
End If
If OptionButton61 = True Then
ActiveCell.Offset(0, 11).Value = "0"
ElseIf OptionButton60 = True Then
ActiveCell.Offset(0, 11).Value = "1"
Else
ActiveCell.Offset(0, 11).Value = "2"
End If
If OptionButton43 = True Then
ActiveCell.Offset(0, 12).Value = "0"
ElseIf OptionButton63 = True Then
ActiveCell.Offset(0, 12).Value = "1"
Else
ActiveCell.Offset(0, 12).Value = "2"
End If
If OptionButton42 = True Then
ActiveCell.Offset(0, 13).Value = "0"
ElseIf OptionButton66 = True Then
ActiveCell.Offset(0, 13).Value = "1"
Else
ActiveCell.Offset(0, 13).Value = "2"
End If
If OptionButton68 = True Then
ActiveCell.Offset(0, 14).Value = "0"
ElseIf OptionButton69 = True Then
ActiveCell.Offset(0, 14).Value = "1"
Else
ActiveCell.Offset(0, 14).Value = "2"
End If
If OptionButton73 = True Then
ActiveCell.Offset(0, 15).Value = "0"
ElseIf OptionButton72 = True Then
ActiveCell.Offset(0, 15).Value = "1"
Else
ActiveCell.Offset(0, 15).Value = "2"
End If
If OptionButton74 = True Then
ActiveCell.Offset(0, 16).Value = "0"
ElseIf OptionButton75 = True Then
ActiveCell.Offset(0, 16).Value = "1"
Else
ActiveCell.Offset(0, 16).Value = "2"
End If
If OptionButton79 = True Then
ActiveCell.Offset(0, 17).Value = "0"
ElseIf OptionButton78 = True Then
ActiveCell.Offset(0, 17).Value = "1"
Else
ActiveCell.Offset(0, 17).Value = "2"
End If
If OptionButton80 = True Then
ActiveCell.Offset(0, 18).Value = "0"
ElseIf OptionButton81 = True Then
ActiveCell.Offset(0, 18).Value = "1"
Else
ActiveCell.Offset(0, 18).Value = "2"
End If
If OptionButton85 = True Then
ActiveCell.Offset(0, 19).Value = "0"
ElseIf OptionButton84 = True Then
ActiveCell.Offset(0, 19).Value = "1"
Else
ActiveCell.Offset(0, 19).Value = "2"
End If
If OptionButton86 = True Then
ActiveCell.Offset(0, 20).Value = "0"
ElseIf OptionButton87 = True Then
ActiveCell.Offset(0, 20).Value = "1"
Else
ActiveCell.Offset(0, 20).Value = "2"
End If
If OptionButton91 = True Then
ActiveCell.Offset(0, 21).Value = "0"
ElseIf OptionButton90 = True Then
ActiveCell.Offset(0, 21).Value = "1"
Else
ActiveCell.Offset(0, 21).Value = "2"
End If
If OptionButton92 = True Then
ActiveCell.Offset(0, 22).Value = "0"
ElseIf OptionButton93 = True Then
ActiveCell.Offset(0, 22).Value = "1"
Else
ActiveCell.Offset(0, 22).Value = "2"
End If
If OptionButton97 = True Then
ActiveCell.Offset(0, 23).Value = "0"
ElseIf OptionButton96 = True Then
ActiveCell.Offset(0, 23).Value = "1"
Else
ActiveCell.Offset(0, 23).Value = "2"
End If
If OptionButton98 = True Then
ActiveCell.Offset(0, 24).Value = "0"
ElseIf OptionButton99 = True Then
ActiveCell.Offset(0, 24).Value = "1"
Else
ActiveCell.Offset(0, 24).Value = "2"
End If
If OptionButton103 = True Then
ActiveCell.Offset(0, 25).Value = "0"
ElseIf OptionButton102 = True Then
ActiveCell.Offset(0, 25).Value = "1"
Else
ActiveCell.Offset(0, 25).Value = "2"
End If
If OptionButton104 = True Then
ActiveCell.Offset(0, 26).Value = "0"
ElseIf OptionButton105 = True Then
ActiveCell.Offset(0, 26).Value = "1"
Else
ActiveCell.Offset(0, 26).Value = "2"
End If
If OptionButton109 = True Then
ActiveCell.Offset(0, 27).Value = "0"
ElseIf OptionButton108 = True Then
ActiveCell.Offset(0, 27).Value = "1"
Else
ActiveCell.Offset(0, 27).Value = "2"
End If
If OptionButton127 = True Then
ActiveCell.Offset(0, 28).Value = "0"
ElseIf OptionButton125 = True Then
ActiveCell.Offset(0, 28).Value = "1"
Else
ActiveCell.Offset(0, 28).Value = "2"
End If
If OptionButton130 = True Then
ActiveCell.Offset(0, 29).Value = "0"
ElseIf OptionButton129 = True Then
ActiveCell.Offset(0, 29).Value = "1"
Else
ActiveCell.Offset(0, 29).Value = "2"
End If
If OptionButton131 = True Then
ActiveCell.Offset(0, 30).Value = "0"
ElseIf OptionButton132 = True Then
ActiveCell.Offset(0, 30).Value = "1"
Else
ActiveCell.Offset(0, 30).Value = "2"
End If
If OptionButton136 = True Then
ActiveCell.Offset(0, 31).Value = "0"
ElseIf OptionButton135 = True Then
ActiveCell.Offset(0, 31).Value = "1"
Else
ActiveCell.Offset(0, 31).Value = "2"
End If
If OptionButton137 = True Then
ActiveCell.Offset(0, 32).Value = "0"
ElseIf OptionButton138 = True Then
ActiveCell.Offset(0, 32).Value = "1"
Else
ActiveCell.Offset(0, 32).Value = "2"
End If
If OptionButton142 = True Then
ActiveCell.Offset(0, 33).Value = "0"
ElseIf OptionButton141 = True Then
ActiveCell.Offset(0, 33).Value = "1"
Else
ActiveCell.Offset(0, 33).Value = "2"
End If
If OptionButton143 = True Then
ActiveCell.Offset(0, 34).Value = "0"
ElseIf OptionButton144 = True Then
ActiveCell.Offset(0, 34).Value = "1"
Else
ActiveCell.Offset(0, 34).Value = "2"
End If
If OptionButton148 = True Then
ActiveCell.Offset(0, 35).Value = "0"
ElseIf OptionButton147 = True Then
ActiveCell.Offset(0, 35).Value = "1"
Else
ActiveCell.Offset(0, 35).Value = "2"
End If
If OptionButton163 = True Then
ActiveCell.Offset(0, 36).Value = "0"
ElseIf OptionButton164 = True Then
ActiveCell.Offset(0, 36).Value = "1"
Else
ActiveCell.Offset(0, 36).Value = "2"
End If
If OptionButton154 = True Then
ActiveCell.Offset(0, 37).Value = "0"
ElseIf OptionButton167 = True Then
ActiveCell.Offset(0, 37).Value = "1"
Else
ActiveCell.Offset(0, 37).Value = "2"
End If
If OptionButton222 = True Then
ActiveCell.Offset(0, 38).Value = "0"
ElseIf OptionButton221 = True Then
ActiveCell.Offset(0, 38).Value = "1"
Else
ActiveCell.Offset(0, 38).Value = "2"
End If
If OptionButton173 = True Then
ActiveCell.Offset(0, 39).Value = "0"
ElseIf OptionButton172 = True Then
ActiveCell.Offset(0, 39).Value = "1"
Else
ActiveCell.Offset(0, 39).Value = "2"
End If
If OptionButton160 = True Then
ActiveCell.Offset(0, 40).Value = "0"
ElseIf OptionButton174 = True Then
ActiveCell.Offset(0, 40).Value = "1"
Else
ActiveCell.Offset(0, 40).Value = "2"
End If
If OptionButton159 = True Then
ActiveCell.Offset(0, 41).Value = "0"
ElseIf OptionButton177 = True Then
ActiveCell.Offset(0, 41).Value = "1"
Else
ActiveCell.Offset(0, 41).Value = "2"
End If
If OptionButton178 = True Then
ActiveCell.Offset(0, 42).Value = "0"
ElseIf OptionButton179 = True Then
ActiveCell.Offset(0, 42).Value = "1"
Else
ActiveCell.Offset(0, 42).Value = "2"
End If
If OptionButton183 = True Then
ActiveCell.Offset(0, 43).Value = "0"
ElseIf OptionButton182 = True Then
ActiveCell.Offset(0, 43).Value = "1"
Else
ActiveCell.Offset(0, 43).Value = "2"
End If
If OptionButton184 = True Then
ActiveCell.Offset(0, 44).Value = "0"
ElseIf OptionButton185 = True Then
ActiveCell.Offset(0, 44).Value = "1"
Else
ActiveCell.Offset(0, 44).Value = "2"
End If
If OptionButton189 = True Then
ActiveCell.Offset(0, 45).Value = "0"
ElseIf OptionButton188 = True Then
ActiveCell.Offset(0, 45).Value = "1"
Else
ActiveCell.Offset(0, 45).Value = "2"
End If
If OptionButton190 = True Then
ActiveCell.Offset(0, 46).Value = "0"
ElseIf OptionButton191 = True Then
ActiveCell.Offset(0, 46).Value = "1"
Else
ActiveCell.Offset(0, 46).Value = "2"
End If
If OptionButton195 = True Then
ActiveCell.Offset(0, 47).Value = "0"
ElseIf OptionButton194 = True Then
ActiveCell.Offset(0, 47).Value = "1"
Else
ActiveCell.Offset(0, 47).Value = "2"
End If
If OptionButton196 = True Then
ActiveCell.Offset(0, 48).Value = "0"
ElseIf OptionButton197 = True Then
ActiveCell.Offset(0, 48).Value = "1"
Else
ActiveCell.Offset(0, 48).Value = "2"
End If
If OptionButton201 = True Then
ActiveCell.Offset(0, 49).Value = "0"
ElseIf OptionButton200 = True Then
ActiveCell.Offset(0, 49).Value = "1"
Else
ActiveCell.Offset(0, 49).Value = "2"
End If
If OptionButton202 = True Then
ActiveCell.Offset(0, 50).Value = "0"
ElseIf OptionButton203 = True Then
ActiveCell.Offset(0, 50).Value = "1"
Else
ActiveCell.Offset(0, 50).Value = "2"
End If
If OptionButton207 = True Then
ActiveCell.Offset(0, 51).Value = "0"
ElseIf OptionButton206 = True Then
ActiveCell.Offset(0, 51).Value = "1"
Else
ActiveCell.Offset(0, 51).Value = "2"
End If
If OptionButton208 = True Then
ActiveCell.Offset(0, 52).Value = "0"
ElseIf OptionButton209 = True Then
ActiveCell.Offset(0, 52).Value = "1"
Else
ActiveCell.Offset(0, 52).Value = "2"
End If
If OptionButton213 = True Then
ActiveCell.Offset(0, 53).Value = "0"
ElseIf OptionButton212 = True Then
ActiveCell.Offset(0, 53).Value = "1"
Else
ActiveCell.Offset(0, 53).Value = "2"
End If
If OptionButton214 = True Then
ActiveCell.Offset(0, 54).Value = "0"
ElseIf OptionButton215 = True Then
ActiveCell.Offset(0, 54).Value = "1"
Else
ActiveCell.Offset(0, 54).Value = "2"
End If
If OptionButton219 = True Then
ActiveCell.Offset(0, 55).Value = "0"
ElseIf OptionButton218 = True Then
ActiveCell.Offset(0, 55).Value = "1"
Else
ActiveCell.Offset(0, 55).Value = "2"
End If
If OptionButton225 = True Then
ActiveCell.Offset(0, 56).Value = "0"
ElseIf OptionButton223 = True Then
ActiveCell.Offset(0, 56).Value = "1"
Else
ActiveCell.Offset(0, 56).Value = "2"
End If
If OptionButton228 = True Then
ActiveCell.Offset(0, 57).Value = "0"
ElseIf OptionButton227 = True Then
ActiveCell.Offset(0, 57).Value = "1"
Else
ActiveCell.Offset(0, 57).Value = "2"
End If
If OptionButton229 = True Then
ActiveCell.Offset(0, 58).Value = "0"
ElseIf OptionButton230 = True Then
ActiveCell.Offset(0, 58).Value = "1"
Else
ActiveCell.Offset(0, 58).Value = "2"
End If
If OptionButton234 = True Then
ActiveCell.Offset(0, 59).Value = "0"
ElseIf OptionButton233 = True Then
ActiveCell.Offset(0, 59).Value = "1"
Else
ActiveCell.Offset(0, 59).Value = "2"
End If
If OptionButton235 = True Then
ActiveCell.Offset(0, 60).Value = "0"
ElseIf OptionButton236 = True Then
ActiveCell.Offset(0, 60).Value = "1"
Else
ActiveCell.Offset(0, 60).Value = "2"
End If
If OptionButton240 = True Then
ActiveCell.Offset(0, 61).Value = "0"
ElseIf OptionButton239 = True Then
ActiveCell.Offset(0, 61).Value = "1"
Else
ActiveCell.Offset(0, 61).Value = "2"
End If
If OptionButton241 = True Then
ActiveCell.Offset(0, 62).Value = "0"
ElseIf OptionButton242 = True Then
ActiveCell.Offset(0, 62).Value = "1"
Else
ActiveCell.Offset(0, 62).Value = "2"
End If
If OptionButton246 = True Then
ActiveCell.Offset(0, 63).Value = "0"
ElseIf OptionButton245 = True Then
ActiveCell.Offset(0, 63).Value = "1"
Else
ActiveCell.Offset(0, 63).Value = "2"
End If
If OptionButton261 = True Then
ActiveCell.Offset(0, 64).Value = "0"
ElseIf OptionButton262 = True Then
ActiveCell.Offset(0, 64).Value = "1"
Else
ActiveCell.Offset(0, 64).Value = "2"
End If
If OptionButton252 = True Then
ActiveCell.Offset(0, 65).Value = "0"
ElseIf OptionButton265 = True Then
ActiveCell.Offset(0, 65).Value = "1"
Else
ActiveCell.Offset(0, 65).Value = "2"
End If
If OptionButton320 = True Then
ActiveCell.Offset(0, 66).Value = "0"
ElseIf OptionButton319 = True Then
ActiveCell.Offset(0, 66).Value = "1"
Else
ActiveCell.Offset(0, 66).Value = "2"
End If
If OptionButton271 = True Then
ActiveCell.Offset(0, 67).Value = "0"
ElseIf OptionButton270 = True Then
ActiveCell.Offset(0, 67).Value = "1"
Else
ActiveCell.Offset(0, 67).Value = "2"
End If
If OptionButton258 = True Then
ActiveCell.Offset(0, 68).Value = "0"
ElseIf OptionButton272 = True Then
ActiveCell.Offset(0, 68).Value = "1"
Else
ActiveCell.Offset(0, 68).Value = "2"
End If
If OptionButton257 = True Then
ActiveCell.Offset(0, 69).Value = "0"
ElseIf OptionButton275 = True Then
ActiveCell.Offset(0, 69).Value = "1"
Else
ActiveCell.Offset(0, 69).Value = "2"
End If
If OptionButton339 = True Then
ActiveCell.Offset(0, 70).Value = "0"
ElseIf OptionButton341 = True Then
ActiveCell.Offset(0, 70).Value = "1"
Else
ActiveCell.Offset(0, 70).Value = "2"
End If
If OptionButton327 = True Then
ActiveCell.Offset(0, 71).Value = "0"
ElseIf OptionButton329 = True Then
ActiveCell.Offset(0, 71).Value = "1"
Else
ActiveCell.Offset(0, 71).Value = "2"
End If
If OptionButton330 = True Then
ActiveCell.Offset(0, 72).Value = "0"
ElseIf OptionButton332 = True Then
ActiveCell.Offset(0, 72).Value = "1"
Else
ActiveCell.Offset(0, 72).Value = "2"
End If
If OptionButton333 = True Then
ActiveCell.Offset(0, 73).Value = "0"
ElseIf OptionButton335 = True Then
ActiveCell.Offset(0, 73).Value = "1"
Else
ActiveCell.Offset(0, 73).Value = "2"
End If
If OptionButton336 = True Then
ActiveCell.Offset(0, 74).Value = "0"
ElseIf OptionButton338 = True Then
ActiveCell.Offset(0, 74).Value = "1"
Else
ActiveCell.Offset(0, 74).Value = "2"
End If
 End With
End Sub
 

Excel Facts

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.
Sort by date Sort by votes
Sorry just realsied the last 5 groups all had the same group name!!! changed them and thats sorted it out...thanks for your help
 
Upvote 0
You must log in or register to reply here.

Similar threads

D
  • Question Question
why show the frame of userform as the photo1
Replies
0
Views
210
david2005wang
D
E
  • Solved
ActiveCell vs Active range search
Replies
3
Views
442
Joe4
Joe4
X
  • Question Question
Locking/unlocking a cell with a Combo Box value Mouse click problem
Replies
0
Views
768
XrayLemi
X
S
  • Question Question
Automatic excel mail word email body
Replies
0
Views
507
Smaxls
S
I
  • Question Question
Advice to remove old code for a new code
Replies
2
Views
212
ipbr21054
I

Forum statistics

Threads
1,224,521
Messages
6,179,289
Members
452,902
Latest member
Knuddeluff

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top