Looping Through Frames Looping through Option Buttons

[marl4]

Hi all! I am relatively skilled with VBA but cannot find a better way to do this...
I have a userform with 63 frames. Currently I'm transferring my data out with 63 iterations of the following:

For Each ctrl In Frame1.Controls


If ctrl.Value = True Then
home.Offset(j, icol) = ctrl.Caption
End If


Next
j = j + 1

The subsequent lines are for Frame2, Frame 3, etc all the way up to 63. My question is this:
How do I write this so that I can do a larger loop outside of this bit of code to have all 63 in one loop? i have tried variations of the following but I am not dimensioning something correctly.
Do until MyFrame = 63
For each ctrl in "Frame" & MyFrame & ".Controls"
'code to look at each option button
'Next
Loop

Please help direct me towards a more efficient way to do this! Thank you!!
M

 

[dmt32]

Hi,
welcome to forum


try

Dim ctrl As msforms.Control
Dim i As Integer


For i = 1 To 63
 For Each ctrl In Me.Controls("Frame" & i).Controls
 
    '
    'your code
    '
    
 Next ctrl
Next i

Dave

 

[marl4]

Hi,
welcome to forum


try

Dim ctrl As msforms.Control
Dim i As Integer


For i = 1 To 63
 For Each ctrl In Me.Controls("Frame" & i).Controls
 
    '
    'your code
    '
    
 Next ctrl
Next i

Dave

Hi Dave - Thank you for this.

My frames are a series of Yes, No, or NA answers. When I use your code, I think it doesn't know to look at each 3 from the specific frame - it only output 1 answer where I expected 63 answers. Does that make sense?

 

[marl4]

Never mind - I was missing the j count. Thank you so much that was perfect!