Loop through userform frame controls

**c00ly81** · 05-12-2016, 03:43 AM

Hi

I have a userform with multiple optionbuttons in a frame. When i launch the userform i want the value og the optionbox that has the same caption as cell A2 in worksheet "Enhet", to be TRUE. Hope I explained it OK. I have tried the code below. But I have never tried this before, så it may be way of...

Sub enhet_valg()
Dim x As Control

For Each x In UserForm1.Frame1.Controls
If Worksheets("Enhet").Range("A2").Text = x.Caption Then
x.Value = True
End If
Next x

End Sub

**pike** · 05-12-2016, 03:45 AM

depends but basically

Sub enhet_valg()
Dim x As Control

For Each x In UserForm1("Frame1").Controls
If Worksheets("Enhet").Range("A2").Text = x.Caption Then
x.Value = True
End If
Next x

End Sub

expanded

  Dim x As Control

    For Each x In UserForm2("Frame1").Controls
        If TypeName(x) Like "OptionButton" Then
            If Worksheets("Enhet").Range("A2").Text = x.Caption Then
                x.Value = True
            End If
        End If
    Next x

**pike** · 05-12-2016, 03:56 AM

or

 Dim x As Control

    For Each x In UserForm2("Frame1").Controls
        Debug.Print TypeName(x)
        If TypeName(x) Like "CheckBox" Then
            If Range("A2").Text = x.Caption then
             x.Value =true
            End If
        End If
    Next x

**c00ly81** · 05-12-2016, 04:19 AM

Originally Posted by pike

or

 Dim x As Control

    For Each x In UserForm2("Frame1").Controls
        Debug.Print TypeName(x)
        If TypeName(x) Like "CheckBox" Then
            If Range("A2").Text = x.Caption then
             x.Value =true
            End If
        End If
    Next x

Perfect! Thank you so much!!

**pike** · 05-12-2016, 04:38 AM

Hello
you can check the checkbox with Boolean value to remove one if statement from the sub routine
eg...

    For Each x In UserForm2("Frame1").Controls
        If TypeName(x) Like "CheckBox" Then
            x.Value =Worksheets("Enhet").Range("A2").Text = x.Caption
        End If

Loop through userform frame controls

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Loop through userform frame controls

Re: Loop through userform frame controls

Re: Loop through userform frame controls

Re: Loop through userform frame controls

Re: Loop through userform frame controls

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Looping through controls by frame on userform (frame within a frame)

[SOLVED] adapt userform loop using control name containing variable for worksheet activex controls

[SOLVED] loop using references to controls in userform values

[SOLVED] userForm -> Frame 'top' value limited. Dynamically created controls,

loop controls in userform except one textbox

Loop through controls in UserForm

Creating Userform Controls on Frame

Bookmarks

Bookmarks

Posting Permissions