Data Enter Form

[jb3700]

Hi can anyone help:

have a small date enter from that Im trying to get the new data to be entered in below were the last enter was and in de-buging it keeps getting hung up at the :

Nrow = jb.Cells(Rows.Count, 1).End(x1up).Row + 1

Below is the full code:

Private Sub btnSubmit_Click()
Set jb = ThisWorkbook.Sheets("sheet1")


nrow = jb.Cells(Rows.Count, 1).End(x1up).Row + 1


Sheet1.Cells(nrow, 1) = CDate(Me.tbdate)
Sheet1.Cells(nrow, 2) = Me.cmblistitem
Sheet1.Cells(nrow, 3) = Me.tbuser


End Sub


Private Sub UserForm_Initialize()
Me.tbdate = Date
For Each X In
[list1]
Me.cmblistitem.AddItem X
Next X


End Sub

 

[gsistek]

Two things come to mind right away.
First change the 'Rows.Count' portion to 'jb.Rows.Count' to make sure it is correctly referencing the sheet.
The second thing (and likely the culprit in this instance) is you have '.End(x1up).Row'. It should have the lower case letter L, not the number 1. i.e. '.End(xlup).Row'

 

[jb3700]

Wow!! your good! Thank you, you were right is was l 1 it all looks so much alike

thank you