VBA User Form is adding data to wrong row

Hey there,

I'm trying to create a macro for a user form so when the user fills in customer information and clicks submit, it will add a customer name and time stamp to a "customer list" table.
There will eventually be more than the customer name and time, once I get the rest of the code working properly.

It is also set to add a row to the table before adding the customer, so I never run out of rows. Not sure if that has anything to do with my issue.

Every time I run it, it adds the customer to the bottom row (the new row that it added) and still leaves empty rows above it.

I suppose it doesn't have to add a row if there is already an open row available, but the main issue is the customer should always be added to the first empty row, not the very last row.

I prefer to not upload the entire spreadsheet because there is some confidential info on it, but here is what I can share...

I attached a screenshot to that portion of the sheet. The code should've inserted Customer 2 into row 17 as it is the first empty row, but instead, it inserted them into row 20, the last empty row.


Here is the code I have right now for when the user clicks submit on the user form:

Please Login or Register  to view this content.

I appreciate any info you can share!

I have attached a very basic userform to demo methods of save/update/delete using a 'structured table'.
first a few 'does & don'ts' the principal of the 'structured table' is that it self maintains - you do not add blank rows to the table in anticipation - this is catered for by using the appropriate table handling references.
Do not use sheet range size handling with tables - use the right referencing methods.
To use the demo - first press 'Clear' input you new data -press 'Add' to transfer to sheet - to 'Update' or delete first select with the combobox.
You will see the UserForm controls are left with their default names - this enables looping through rather than individually referencing each textbox - if your app had 50 textboxes it would not be any larger than this demo using this method.
I have included a PDF of the code structure that you may find useful to refer to - hope some of this is of assistance.

Hello. Two comments:

a) Never -but never- leave empty rows in a listObject: Consider it a crime! (Ja ja ja).

b) Regarding the VBA code that you have shown us, I would say that it is a bit complicated without need. I show you a much simpler way:

PHP Code: 

Private Sub Submit_Button_Click()
Dim TableListObject As ListObject

Set TableListObject = Sheets("Daily Goal and Sale Tracker").ListObjects(1)
With TableListObject.ListRows.Add(1)
  .Range(1) = Now
  .Range(2) = Name_Text
End With

MsgBox "Customer Added Successfully!"
End Sub 


_______________________________

I forgot to comment:

If you've bound this listObject to a listBox, for example, then you should add two lines to the above:

Please Login or Register  to view this content.