VBA - Combining two userforms' textbox values.

[khattabY]

Hello,

I have created two userforms as shown below.

The first userform has data entries to fill in and for the "Number of Segments" field, you add the number of segments to be add then press on the "Add segments" button to open another userform that automatically creates labels and textboxes from the number entered. Now, what I need to do is join the two userforms so when I press Done on userform(1) it will be able to print the values entered from userform(2).

What I had in mind is to create a loop that goes through all the textboxes from userform 2 depending on the number of segments added and make the values of those textboxes = textboxes in userform 1. I am open to any ideas that can make this easier.

Thanks,

 

[GWteB]

Hi & welcome to MrExcel.

What I had in mind is to create a loop that goes through all the textboxes from userform 2 depending on the number of segments added

That's quite doable provided you don't use the default instance of the second userform. You need to "New" the userform using a pre-declared variable. The command button on your second userform only needs to hide that userform. Finally the code needs to take some precautions so the user isn't able to close the second userform with its upper right [X] close button, otherwise the data in the text boxes will be lost.

Code of the second userform should contain at least these procedures:

Private Sub CommandButton1_Click()
    Me.Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
    End If
End Sub

Usage example:

Sub Example()

    Dim usf As UserForm2
    Set usf = New UserForm2
    usf.Show

    Dim Ctl As MSForms.Control
    For Each Ctl In usf.Controls
        If TypeName(Ctl) = "TextBox" Then
            '
            ' do your stuff here
            '
        End If
    Next Ctl
End Sub