How do we assign textbox to cell to continue adding data using userform?

[charles2010]

Hi guys,

I'm still at the learning stage on how to build userforms for data entry in my worksheet.

I already have a worksheet done up and am now trying to create a userform to speed up the data entry process. But I'm stuck because the tutorials out there only teach us how to assign the first textbox to the first column of the sheet.

How do we code the first textbox to a different cell in the worksheet and start adding data from there?

Been trying to match the textbox to a different cell but when I add new data, the new data overwrites the old data in the cell....

Please help? I'm loosing sleep on this puzzle....

To better illustrate this, here's the file...

 

[rs2k]

Hi Charles, welcome to the board,

This bit of code takes 4 textboxes and puts the data in Col's A:D, and keeps adding data below. Put this code on a button on your userform;

Private Sub cmdAdd_Click()

Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

'find first row in database
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

With ws
.Range("A" & irow) = TextBox1.Value
.Range("B" & irow) = TextBox2.Value
.Range("C" & irow) = TextBox3.Value
.Range("D" & irow) = TextBox4.Value

End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""

End Sub

it also clears the textboxes ready for the next entry;

HTH
Colin

 

[charles2010]

Sorry I can't find a way to upload my file, so I added it in a blog.

here's the link.

Thanks a bunch!

http://userformexcelhelp.blogspot.com

 

[charles2010]

From here, I just need to change

"A" to my new column!

It works like a charm!

You are awesome!


Thank you!!!