VBA Code is not Entering UserForm Values on Worksheet

[drsadistic]

So here is the skinny... I've created a userform to enter data into my sheets. The code should look for the last open cell in the given range and add the data to it. The only thing is, its not working. No errors now, its just not entering the data.

Private Sub btnOkay_Click()
Dim LastRow As Long

'Adds 1 to get to the Row following the last populated Row
LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Worksheets("2014").Range("D1" & LastRow).Value = tbNetSales.Value
Worksheets("2014").Range("G1" & LastRow).Value = tbDiscounts.Value
Worksheets("2014").Range("p1" & LastRow).Value = tbCreditCards.Value

End Sub

Any suggestions?

[nathansav]

Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value etc

[drsadistic]

Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value etc

Thank you nathansav for your help. I've fixed my code per your advice, and now I am receiving this error:

Application-defined or object-defined error

Did I forget to define something?

Here is my updated code:

Private Sub btnOkay_Click()
Dim LastRow As Long

'Adds 1 to get to the Row following the last populated Row
LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value
Worksheets("2014").Range("G" & LastRow).Value = tbDiscounts.Value
Worksheets("2014").Range("P" & LastRow).Value = tbCreditCards.Value

End Sub

[drsadistic]

Thank you nathansav for your help. I've fixed my code per your advice, and now I am receiving this error:

Application-defined or object-defined error

Did I forget to define something?

Here is my updated code:

Private Sub btnOkay_Click()
Dim LastRow As Long

'Adds 1 to get to the Row following the last populated Row
LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value
Worksheets("2014").Range("G" & LastRow).Value = tbDiscounts.Value
Worksheets("2014").Range("P" & LastRow).Value = tbCreditCards.Value

End Sub

Anyone with any ideas?

[FDibbins]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[drsadistic]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Fixed, sorry about that.

[nathansav]

What is the valie of lastrow, does the worksheet 2014 exist, what is tbNetSales.value, where is the error !!!

you need to detail where errors are etc, we cant see your screen.

[Norie]

What's the current code?

[drsadistic]

Private Sub btnOkay_Click()
Dim LastRow As Long

'Adds 1 to get to the Row following the last populated Row
LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value
Worksheets("2014").Range("G" & LastRow).Value = tbDiscounts.Value
Worksheets("2014").Range("P" & LastRow).Value = tbCreditCards.Value

End Sub

This is my most current code.

Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value

This is the line that presents the error. The error is

Application-defined or object-defined error.

[satputenandkumar0]

Best way to attache sample workbook.

[drsadistic]

Here's the problem, I'd rather not post my workbook online... I own restaurants and the sales information is sensitive. I'd be willing to open a line for Teamviewer if anyone would be open for remotely looking at my code.

[satputenandkumar0]

try changing line

LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Offset(1)

to

LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row

or

LastRow = Worksheets("2014").Range("a65536").End(xlUp).Row + 1

[drsadistic]

I changed the line per your instructions, and they both fixed the error... however neither of them inserted the value I designated in the Texbox into the appropriate cells. Nothing happened, in fact. Here is my newest code:

Private Sub btnOkay_Click()
Dim LastRow As Long

'Adds 1 to get to the Row following the last populated Row
LastRow = Worksheets("2014").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("2014").Range("D" & LastRow).Value = tbNetSales.Value
Worksheets("2014").Range("G" & LastRow).Value = tbDiscounts.Value
Worksheets("2014").Range("P" & LastRow).Value = tbCreditCards.Value

End Sub

[nathansav]

You need to attach a sample, code means nothing without the data its working on.

[drsadistic]

Can I send it to one of you via email or PM?

[drsadistic]

Okay, I fixed this particular issue myself... thank you to everyone who offered advice.