Data Entry with UserForm

[rizmomin]

Hello:

Please refer to attached sheet.
I am trying to create a very simple userform to enter First Name and Last Name .
While pressing the "Submit button, it gives error.
Can someone help on this simple task.
Below is the capture code I am using.

Private Sub CommandButton1_Click()
Dim erow As Integer
erow = Sheet1.Cells(Rows.Count, 1).End(x1up).Offset(1, 0).Row
Cells(erow, 1) = TextBox1.Text
Cells(erow, 2) = TextBox2.Text
End Sub

Let me Know if you have any questions.
Thanks.


Riz

[buran]

Private Sub CommandButton1_Click()
Dim erow As Long
erow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1) = TextBox1.Text
Cells(erow, 2) = TextBox2.Text
End Sub

[MarvinP]

Hi Riz,

One is not equal to "L" in your .End(x1up). If you replace the "1" by an "l" you will have better luck with your error message. I found this because the "up" didn't change to "Up" after pressing enter.