Next empty row in table

[tdeitrick]

I am having trouble writting the code that after I press an Active X control button in sheet 1 it will take the value of cell A2 in sheet 1 and place it in the next empty row in a table on sheet 2. Sheet one is acting almost like a user form.

 

[GlennUK]

What have you tried so far? Post your code.

 

[tdeitrick]

I appologize about being vauge in my first post. I am trying to make a flat labor data base that groups regular hours and overtime hours with the event and the employee that worked it along with some other details. This is what I have so far. I know once I can get A2 to go to the right place the rest of my coding will be, hopefully downhill from here. Every time I test it it skips a row or places a2 value outside the table. I appreciate all of your help
Thank you,
Todd D.

Dim ts As Worksheet
Set ts = Worksheets("TimeSheet")
Dim lt As Worksheet
Set lt = Worksheets("LaborTable")
Dim newrow As Long
newrow = lt.Range("a50000").End(xlUp).Row + 1
lt.Cells(newrow, 1).Value = ts.Range("a2").Value

 

[GlennUK]

As far as I can see, as long as Worksheets("LaborTime") column A is populated on every row ( i.e. the last row of the table has column A as a non-blank entry ), and that column A cells after the end of the data area really are blank, then your code should work. Are those things true about your table?

 

[tdeitrick]

I belive so. When i test the code I have a empty table aside from the column headers. I press the button to execute the code three times. It skips the first blank row of the table and place a2's values in the first blank row below the table. I then manually resize the table to encompass the the three values. Then test it three more times. The data skips a row but otherwise places it corectly inside the table. Weird Huh??

 

[GlennUK]

Why does it have to be a "Table" instead of a range?

 

[tdeitrick]

the table will eventually contain a few thousand rows of data that I sort, filter and produce lots of diffrent pivot reports and charts from. Also, I plan to export the table to an Acess data base.

 

[GlennUK]

All of that can be done without it being an Excel Table.

 

[GlennUK]

Read this ... it may help you:

http://www.jkp-ads.com/articles/Excel2007TablesVBA.asp

 

[tdeitrick]

Will do. Thank you very much I really appreciate all of your help.