Next Empty Row

[seasmith]

I have used code like this

Range("A65536").End(xlUp)(2, 1) = txtrelief.Text

before to find the next empty row and have a text box from a form print to that row. This time though I am having some problems. Whatever I type in the text box on the form lets say I type in JimJones it enters the informating
J
Ji
Jim
JimJ
JimJo and so on
can anyone help me with this? Or is there any other code I could use to find the next empty row and have a text box from a form print in it?

 

[VoG]

You are probably using the wrong event on the form. It should be something like

Private Sub TextBox1_Enter()
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Text
End Sub

 

[Norie]

Have you put this code in the Change event of the textbox?

If you have it will get triggered every time you type a character (or delete from) in the textbox.

So when you type 'J' it runs the code and puts 'J' in the next empty row.

Then when you type 'i' it runs the code and puts 'Ji' in the next empty row, which is the row below where 'J' was put.

And so on.

 

[seasmith]

To Norie yes it is in the change event but my previous code like this that I have used before is also in the Change event and works just fine. So I'm not sure what is different.

To VoG I've tried using your code, and trying different things with the code that I have but with your code I can't get anything to print to the spreadsheet

 

[VoG]

Personaly I would put a button on the form then use

Private Sub CommandButton1_Click()
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Text
End Sub

 

[seasmith]

Well I have a Next button on the form so you would suggest putting that code for the button so when you click the button it enters it?

 

[VoG]

Yes.

 

[seasmith]

Thanks for all your help that worked out great!

 

[Norie]

Just out of curiosity was the previous code exactly the same?

 

[seasmith]

yes it was exactly the same. That's why i was was confused on why it wasn't working