Data Input Box

[adamwalt]

Hello all,
I am new to this site and am in need of some help.
I have created a userform with 4 boxes for text entry and then submit and reset buttons.
I want to have a button on the worksheet that will open up the userform which will then get filled out and the data entered into the sheet. Each entry to fall in the row below.
Two of the four boxes are combo boxes.
I have a screenshot but I am not sure how to upload it.
Thanks!

 

[adamwalt]

 

[My Aswer Is This]

Are you saying you also need us to write you a script to Open the userform?
It would be something like this: Userform1.show

Now we need to know the name of all these textbox's and the comboboxe's

And where exactly does each textbox value get pasted to.

You only said:

Each entry to fall in the row below.​

You mean:
Textbox1 value goes in A1

Textbox2 value goes in A2
Textbox3 value goes in A3

If not explain in detail.
​

 

[adamwalt]

What I mean is the first time the data is entered it would go into A1, B1, C1, D1. Then the next time it is entered it would go into A2, B2, C2, D2 and so on.
The first box is txtDate, where a date is entered. The next is a combobox (CBName) where a name would be selected. Then a combobox (CBPolicy) and finaly txtAmt.
Once the data is input, BtnSubmit, will submit the data and BtnReset will reset the fields.

 

[My Aswer Is This]

Try this:
You said start in row(1) but in most all cases that is not what users want.
This script starts in row(2). Most users have headers in row(1)

Private Sub CommandButton3_Click()
'Modified 4-22-18 11:25 PM EDT
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(Lastrow, "A").Value = txtDate.Value: txtDate.Value = ""
Cells(Lastrow, "B").Value = CBName.Value: CBName.Value = ""
Cells(Lastrow, "C").Value = CBPolicy.Value: CBPolicy.Value = ""
Cells(Lastrow, "D").Value = txtAmt.Value: txtAmt.Value = ""
End Sub