Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through controls on form
Good Morning,
I have 6 checkboxes grouped (grpMaterials) within a frame on a form. If the value of a checkbox is true, the following happens within a certain range of cells on my worksheet: If chkTextbook.Value = True Then .Offset(0, 26).Value = Chr(82) End If The value of the second checkbox would appear in rng.Offset(0, 27), the third in rng.offset(0, 28), etc. If the value of the checkbox is false, the corresponding cell would be blank. How would I loop through the controls instead of having to write the above code for each of the checkboxes? Thank you much, Robbyn |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through controls on form
Dim ctl As msforms.Control Dim i As Long i = 25 For Each ctl In Me.Controls If TypeName(ctl) = "CheckBox" Then i = i + 1 If ctl.Value Then .Offset(0, i).Value = Chr(82) End If End If Next ctl -- HTH RP (remove nothere from the email address if mailing direct) "Robbyn" wrote in message ... Good Morning, I have 6 checkboxes grouped (grpMaterials) within a frame on a form. If the value of a checkbox is true, the following happens within a certain range of cells on my worksheet: If chkTextbook.Value = True Then .Offset(0, 26).Value = Chr(82) End If The value of the second checkbox would appear in rng.Offset(0, 27), the third in rng.offset(0, 28), etc. If the value of the checkbox is false, the corresponding cell would be blank. How would I loop through the controls instead of having to write the above code for each of the checkboxes? Thank you much, Robbyn |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through controls on form
Thanks Bob! Worked perfectly!
"Bob Phillips" wrote: Dim ctl As msforms.Control Dim i As Long i = 25 For Each ctl In Me.Controls If TypeName(ctl) = "CheckBox" Then i = i + 1 If ctl.Value Then .Offset(0, i).Value = Chr(82) End If End If Next ctl -- HTH RP (remove nothere from the email address if mailing direct) "Robbyn" wrote in message ... Good Morning, I have 6 checkboxes grouped (grpMaterials) within a frame on a form. If the value of a checkbox is true, the following happens within a certain range of cells on my worksheet: If chkTextbook.Value = True Then .Offset(0, 26).Value = Chr(82) End If The value of the second checkbox would appear in rng.Offset(0, 27), the third in rng.offset(0, 28), etc. If the value of the checkbox is false, the corresponding cell would be blank. How would I loop through the controls instead of having to write the above code for each of the checkboxes? Thank you much, Robbyn |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
ActiveX Controls vs Form Controls | Excel Discussion (Misc queries) | |||
Problem with looping through userform controls | Excel Programming | |||
looping through userform controls | Excel Programming | |||
Looping through multiple controls | Excel Programming | |||
Looping thru custom controls | Excel Programming |