Populating textboxes with values from two columns of textboxes

[ryeire]

Hi all,

I am creating a database that is used for doing checks and logging required info.

I have a userform where you insert two seperate readings for each station along with pass/fail option buttons.
I'm looking to populate one textbox in a seperate userform with the values from one column of textboxes in the current userform, and I wish to do the same with another column of textboxes in the same userform. I have code that will allow me to complete this action but with only one column of textboxes. See pictures of userforms below.

I also attached the code that I have below. I have named the textboxes in each column the same with only the number changing (e.g. textbox1, textbox2) and I have been trying to use the control methods to accomplish what I want but I have had no luck so far.

Dim t As MSForms.Control, v
v = ""
For Each t In Me.Controls
    If TypeOf t Is MSForms.TextBox Then
        v = v & IIf(v <> "", ", ", "") & Trim(t.Value)
    End If
Next t
frmQuarterlyForm.txtMatGND.Value = v

I hope someone can help me with my issue. Thanks in advance

 

[dmt32]

Hi,
untested but see if following will do what you want

    Dim i               As Long, a As Long
    Dim Results(1 To 2) As String
 
    For i = 1 To 24
        a = IIf(i < 13, 1, 2)
        With Me.Controls("TextBox" & i)
            If Len(.Value) > 0 Then
                Results(a) = Results(a) & .Value & IIf(i = 12 Or i = 24, "", ",")
            End If
        End With
    Next i
 
    With frmQuarterlyForm
        .txtMatGND.Value = Results(1)
        .txtContGND.Value = Results(2)
    End With

Change control name shown in BOLD as required

Dave

 

[ryeire]

@dmt32 sorry for the late reply. I just tested the code and it works perfectly. Thank you very much for your time and help

 

[dmt32]

I just tested the code and it works perfectly. Thank you very much for your time and help

Hi,
not sure solution is "perfect" but glad if seems to do what you want & appreciate your feedback

Dave