bulk text box transfer

turkey · Nov 26th 2020

I need a code to transfer the data in textboxes between 1-31 on the userform into cell G7: AL7 at once. Can you help?

**royUK** · Nov 27th 2020

Attach an example workbook

turkey · Nov 27th 2020

Royuk Master

Labells in bulk G6: One time to the AK6 range

TextBox also need the Macro code to save the lower ALTA in each record of the AK7 interval.

**royUK** · Nov 27th 2020

I don't understand what you want to do.

Where do you want to write the contents to?

What does this mean?

Quote

TextBox also need the Macro code to save the lower ALTA in each record of the AK7 interval.

**royUK** · Nov 27th 2020

I'm guessing this might be what you mean. It copies to Row 7, but you can change that.

turkey · Nov 27th 2020

Royuk Master

It's perfect, thank you.

But; TextBox (1-9) is not transferred to the page. Can you look if I asked?

**royUK** · Nov 27th 2020

I'll post back tomorrow

jolivanes · Nov 28th 2020

Change the "Set rC1 = .... line to

Code

Set rCl = Cells.Find(CInt(Me("Label" & iX).Caption), , , xlWhole)

**royUK** · Nov 28th 2020

If your spreadsheet does have the numbers as the headings then I was going to suggest theusing xlWhole.

You can use the Tag property of the TextBoxes to store the relevant column number.

Code

Private Sub CommandButton1_Click()


Dim  iX As Integer


For iX = 1 To 31
Cells(7, CInt(Me("TextBox" & iX).Tag)).Value = Me("TextBox" & iX).Value
Next iX


End Sub

Display More

turkey · Nov 28th 2020

RoyUK master

thank you. So glad that I have you.

bulk text box transfer

Participate now!

Share