Quick Looping userform Question

[braindiesel]

I have a userform with 15 textboxes
If the textbox has a value then I want to run some code (newrowformulas) and then as a last step I want to put the value of the textbox in a cell.

Without knowing better, I will just repeat the code 15 times to check each box

If TextBox1.Value <> "" Then
NewRowFormulas
ActiveCell.Value = TextBox1.Value
End If
If TextBox2.Value <> "" Then
NewRowFormulas
ActiveCell.Value = TextBox2.Value
End If
etc


I suspect that there is a much easier way.

If you can help, I would appreciate it

 

[Colo]

Hi braindiesel,

Yes, you can use a loop as follows.

    Dim i As Long
    For i = 1 To 15
        If Me.Controls("TextBox" & i).Value = "" Then
            NewRowFormulas
            ActiveCell.Value = Me.Controls("TextBox" & i).Value
        End If
    Next

 

[braindiesel]

Worked perfectly, thank you