Transferring data from a user form

[WoodyMark]

Hi, I've created a userform with text boxes and check boxes but struggling to work out how to get the data transferred onto a spreadsheet via a submit button.

 

[Special-K99]

Am no VBA expert, but isn't it something like this?

Go into design mode, design your form, lets say Text Box and a Button
Right click the button select View Code

You should see

Private Sub CommandButton1_Click()

End Sub

in the sub enter

Range("A1") = TextBox1

Come out of Design mode, enter some text in the text box.
Click the button
You should see the value in the text box in cell A1

 

[Trevor G]

Welcome to the forum. Behind the command button you can add something like this:

Sheets("Sheet to goto please change the name here").Activate
Range("The cell").Value = Me.TextBoxName.Value
Range("The Next Cell")=Me.TextBoxName2.Value
And so on
Me.Hide

If you want the data to be added to new row you will have to be more specific in your thread.

 

[RoryA]

Welcome to the forum.

Do the values always go to the same cells, or is this like a data entry form where you add row after row?

 

[WoodyMark]

Hi, how would I get the data added to a new row each time? thanks.

 

[WoodyMark]

Hi, how would I get the data added to a new row each time? thanks.

Welcome to the forum. Behind the command button you can add something like this:

Sheets("Sheet to goto please change the name here").Activate
Range("The cell").Value = Me.TextBoxName.Value
Range("The Next Cell")=Me.TextBoxName2.Value
And so on
Me.Hide

If you want the data to be added to new row you will have to be more specific in your thread.

 

[RoryA]

You'd do something like this:

With Sheets("sheet name here")
Dim NextRow as long
NextRow = .Cells(.Rows.count, "A").End(xlUp).Row + 1
.Cells(nextrow, "A").Value = me.textbox1.text
.cells(nextrow, "B").value = me.textbox2.text
' etc.
end with