Vba Get last used row of a Table

[My Aswer Is This]

I use this line of code to find last used row in column "A"
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

But how do I do this to find last used row in column "A" Table1
Or last used row of Table1

 

[My Aswer Is This]

I thought my question was a simple one.
I want to know what is the last used row in "Table1"

Thanks for the link I have looked at that but no where does it mention how to know what row in a Table is the last used row.

Hi,

I assume Table1 is actually a Table. Referencing Tables is supposed to be done with Listobjects.
Take a look at this: https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables

Are you looking for the row number within the sheet or the Table?

For the Row within the Table you can use: ActiveSheet.ListObjects("Table1").ListRows.Count

 

[taxcel rose]

Try this:
ActiveSheet.ListObjects("Table1").Range.SpecialCells(xlCellTypeLastCell).Row

 

[taxcel rose]

But then the user said Sheet "Preapprovalas" had a table in it.
So I want to paste the row into the Tables 1st empty row.

Are you aware that you copy the whole row from one sheet to another. As you told in your first post there is a table in sheet "Preapprovals". You have to ensure that the date to be copied has the same number of columns or less as the table has.

To insert a row at the end of a Tables DataRange you can use the following code:

With ActiveSheet.ListObjects("Table1").ListRows.Add(alwaysinsert:=True)
    .Range.Cells(1, 1).Value = 1 'Inserts a 1 into the rows first column.
End With

 

[purinqui]

I use this line of code to find last used row in column "A"
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

But how do I do this to find last used row in column "A" Table1
Or last used row of Table1

Old post but better late than never:


To find last row in table:

Sub Find_Last_Row()
'----------------------------------------------------------------
' Assign a variable to hold our table named "Table1"
'----------------------------------------------------------------
Dim tbl1 As ListObject
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1")

Set tbl1 = ws.ListObjects("Table1")

Dim lrow As Long
'----------------------------------------------------------------
' Find last row, if table has header is in row 1 of worksheet
'----------------------------------------------------------------
lrow = tbl1.Range.Rows.Count
'----------------------------------------------------------------
' Find last row, if table header has is not in row 1 of worksheet
'----------------------------------------------------------------
lrow = tbl1.Range.Rows(tbl1.Range.Rows.Count).Row
End Sub

 

[Peter_SSs]

Old post but better late than never:


To find last row in table:

The only problem is that the question was ...

But how do I do this to find last used row in column "A" Table1
Or last used row of Table1

.. and has already been answered I believe.