-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Help with VBA user form data
- Thread starter rgreyb
- Start date
-
- Tags
- userform combobox vba
bertie
Well-known Member
- Joined
- Jun 12, 2009
- Messages
- 1,869
Hi and welcome to the forum.
Say you had a form with two text boxes and one command button.
To place the text box contents into a specific cell you would use something like:
If you want to find the next available row to input the data try this:
Say you had a form with two text boxes and one command button.
To place the text box contents into a specific cell you would use something like:
Code:
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] CommandButton1_Click()
[COLOR=darkblue]With[/COLOR] Sheets("Sheet1")
.Range("A1").Value = TextBox1.Value
.Range("B1").Value = TextBox2.Value
[COLOR=green]'etc[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
Code:
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] CommandButton2_Click()
[COLOR=green]'===========================[/COLOR]
[COLOR=green]'find the next available row[/COLOR]
[COLOR=green]'===========================[/COLOR]
[COLOR=darkblue]Dim[/COLOR] [COLOR=Red]rw [/COLOR][COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
[COLOR=darkblue]With[/COLOR] Sheets("sheet1")
[COLOR=green]'find the next available row for input[/COLOR]
[COLOR=Red]rw [/COLOR]= .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" &[COLOR=Red] rw[/COLOR]).Value = TextBox1.Value
.Range("B" &[COLOR=Red] rw[/COLOR]).Value = TextBox2.Value
[COLOR=green]'etc[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
Upvote
0
Similar threads
- Question
