Transfer multiple Userform Textbox value to cells/columns

[djossh]

Hi.. I have this code below that transfer my "Textbox1" to "Textbox20" to column A. I have another set of Textboxes ("DataBox1" to "Databox20") that i need to transfer to Column B. can anyone help me on this. Thanks


Dim lrow As Long, i As Long
lrow = Cells(Rows.Count, "A").End(xlUp).Row + 1

With Sheet3
i = 1
Do Until i = 20
.Cells(lrow, 1) = Me.Controls("Textbox" & 1 + i)
lrow = lrow + 1
i = i + 1


Loop
End With

 

[Logit]

.
It's easier for me if I have the workbook in front of me to work with .. however, see if this works :

Dim lrow As Long, i As Long
lrow = Cells(Rows.Count, "B").End(xlUp).Row + 1


With Sheet3
i = 1
Do Until i = 20
.Cells(lrow, 2) = Me.Controls("Databox" & 1 + i)
lrow = lrow + 1
i = i + 1




Loop
End With

 

[djossh]

Hi. Thanks. sorry I did not explained it well. I was thinking of Transferring below sets of textboxes at the same time

"Textbox1" to "Textbox20" to column A
"Databox1" to "Databox20" to column B

Thanks