New Entry From User Form Not Adding

[LewisJ]

Hello all,

I have an entry user form called by clicking 'Manual Entry' on the 'Entries'! sheet. The form pops up but when clicking 'Add New Entry' no entries are added to the next row available. It was working at one time but not sure why it isn't now.

If someone has a chance to check on this I would appreciate it.

The only thing I have done is trying to share it on OneDrive if that matters.

Thank you,
Joe

[xlnitwit]

Hi,

It does add a new entry beneath the last row in your table (row 50).

[BadlySpelledBuoy]

The line of code to ascertain the last row is finding the last row in the table rather than the last populated row in column A.
Change that to look from A2 down rather than A1048576 up and it should work.
From

Please Login or Register  to view this content.

To

Please Login or Register  to view this content.

BSB

[LewisJ]

I didn't see that but it should be entering in the next blank row. Any ideas?

[LewisJ]

Changing the code worked! Thank you Mr. Badly

[xlnitwit]

It depends on why you have empty rows in your table- that somewhat defeats the purpose of using a table.

[LewisJ]

Are there any other issues with the codes that you can see?

[LewisJ]

Sorry that was off topic to ask. I will mark this as solved.

Thank you very much for your help,
Joe

[BadlySpelledBuoy]

With the code for the userform, there appear to be no issues as it's working, but it could be more efficient / easier to read.
Personal preference comes in to it here as we all have our own coding styles.

For example, all those lines of code where you have 'lngLastRow + 1'. If you add one to the line where you set the last row then you haven't got to add one each time you call lngLastRow.
Also you don't need to keep using .Value and .Text . I tend to miss these out unless I'm dealing with numbers in which case I'd use .Value .

In addition, and this really is personal preference, you don't need to use all that code to clear the form ready for a new entry. You can simply unload and reload the form to do the same.

Below is a slight rewrite of your code. Does the same thing, just a little easier to read which is important when it comes to debugging extensive code.

The other thing I would do is ensure you rename all the controls that you will be manipulating.
'ComboBox1' is not as helpful as 'CB_VariableExpense'
BSB

Please Login or Register  to view this content.

[LewisJ]

I tried that code. I put a variable expense example and it entered fine. The Fixed Expense and Income cells show validation errors. It seems that they are calling to be required.

Only one of the three options will be selected. Actually on occasion none of the three may be an entry just to record a non affecting budget item.

Thank you,

I have a meeting and will be back in an hour,
Joe

[BadlySpelledBuoy]

In that case you will need the .Text on the end of those three lines.
Not sure why it does that. I have similar workbooks that don't show the error flag (although that could be because I've turned it off! Cannot recall).

BSB

Please Login or Register  to view this content.

[LewisJ]

Sorry for the delay the meeting extended. The new code is perfect thank you.