Populate cells from Macro Textbox

[Loin75]

Hi, I have searched everywhere for what I think is very simple, but cannot find what I need.

Stage 1.

I have created a userform that simply has 4 textboxes on it. I would like the contents of the textboxes to populate a table in the worksheet.

Stage 2.

If the macro (userform) is used again, the data would appear on the next line of the table (rather than overwriting the first entry).

I am using Excel 2007. Is this possible?

Many Thanks for any help...

 

[Loin75]

It jumped to B3... This works perfectly, but why not when in my book.

 

[VoG]

This is what your code should now be

Private Sub CommandButton1_Click()
Add.Hide

Dim iRow As Long

'find first empty row in database
iRow = Range("B1").End(xlDown).Offset(1).Row

'copy the data to the database
Range("B" & iRow).Value = Me.TextBox1.Value
Range("C" & iRow).Value = Me.TextBox2.Value
Range("D" & iRow).Value = Me.TextBox3.Value
Range("E" & iRow).Value = Me.TextBox4.Value

'clear the data
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox1.SetFocus
End Sub

 

[Loin75]

...and yet it doesn't!!

Is it possible to upload this file?

 

[VoG]

First check that B3 is actually blank and doesn't contain a space or other invisible character.

You can't upload files to the board but you could upload to a site like www.box.net and provide a link.

 

[Loin75]

Hi,

I am cobbling together something that might do the trick, but need help.

This last code I was given works great to find the next empty cell.

What I need now is a piece of code that will paste the value of textbox 1 into the "currently selected cell".

Is there such a command?

 

[VoG]

Try

ActiveCell.Value = Me.TextBox1.Value

 

[Loin75]

Perfect, Thanks