Need a little help

[Rick Johnson]

I have Bill's Live Lessons "Excel VBA and Macros with MrExcel." I have been working on creating a userform, but I have been having trouble with a line of code. I went back to trying a very simple userform, but still have the same error.

Can someone help me out by pointing me in the right direction? Thanks a lot folks.

Best regards,

Rick Johnson

Code:

Private Sub CommandButton1_Click()
'Find the next row on the data sheet
NextRow = Worksheets("Data"). _
.Cells(Row.Count, 1).End(x1up).Row 1
'Write the values from this form to that row
With Worksheets("Data")
.Cells(NextRow, 1).Value = Me.TBname
.Cells(NextRow, 1).Value = Me.TBaddress
.Cells(NextRow, 1).Value = Me.TBcity
.Cells(NextRow, 1).Value = Me.TBstate
.Cells(NextRow, 1).Value = Me.TBzip
End With
'Unload the form
Unload Me

End Sub
Private Sub Commandbutton_2Click()
Unload Me

End Sub

Private Sub UserForm_Click()

End Sub

 

[VoG]

It should be

NextRow = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1

 

[Rick Johnson]

Thanks Peter. I appreciate your help and keen eye.

Best regards,
Rick Johnson

 

[Rick Johnson]

That did not work Peter.

 

[VoG]

No reason why that should not work

 

[Rick Johnson]

I'm using Excel 2010...could there be an issue with that version? Or something else I am missing? Thanks again!

 

[Rick Johnson]

Thanks for your help. I got it figured out...it amounted to how I had my sheets named, but it is working fine now.

Rick