vba to delete last row from a table

[dpaton05]

What is the vba code I can add to a button to delete last row from a table?

 

[JackDanIce]

Without details (Sheet name, address of start cell of table etc) and unable to see your PC screen as you see it, try adjusting following:

Sub DelLR()

Dim x as Long

With Sheets("Sheet1")
'Assumes last row of data found in column A (1)
  x = .Cells(.Rows.Count, 1).End(xlUp).Row
  .Cells(x, 1).EntireRow.Delete
End With

End Sub

 

[Gokuba]

Just assign a button to below code

Sub lastrowdel()
Dim lastrow As Long
Dim sht As Worksheet


Set sht = ActiveSheet


lastrow = sht.ListObjects("Table1").Range.Rows.Count
Rows(lastrow).Delete
End Sub

 

[Gokuba]

Just assign a button to below code

Sub lastrowdel()
Dim lastrow As Long
Dim sht As Worksheet


Set sht = ActiveSheet


lastrow = sht.ListObjects("Table1").Range.Rows.Count
Rows(lastrow).Delete
End Sub

And change the "Table1" name to your table.

 

[My Aswer Is This]

Try this:

Sub Delete_Table_Lastrow()
'Modified  8/29/2018  8:49:18 AM  EDT
Dim ans As Long
    With ActiveSheet.ListObjects("Table1").Range
        ans = .Rows.Count
        .Rows(ans).Delete
    End With
End Sub

 

[JackDanIce]

When you find code works, I'm glad someone here could help and come back to Mr. Excel next time you need additional assistance

 

[dpaton05]

Deleting cells from the bottom of a table

I have a table in excel and a button to delete rows from the table. Rows get deleted from the top of the table but I want rows from the bottom of the table to be deleted. How can I change this code so rows will get deleted from the bottom?

Private Sub CommandButton2_Click()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("npss_quote")
tbl.ListRows(1).Delete
End Sub


Thanks,
Dave

 

[dpaton05]

Re: Deleting cells from the bottom of a table

In case anyone finds this thread looking for the answer, I found it. This is it:

Private Sub CommandButton2_Click()

Dim oLst As ListObject

If ActiveSheet.ListObjects.Count > 1 Then
For Each oLst In ActiveSheet.ListObjects
With oLst
If .Name = "npss_quote" Then
If oLst.ListRows.Count > 1 Then
number_of_columns = .ListColumns.Count
oLst.ListRows(oLst.ListRows.Count).Delete
End If
End If
End With
Next

End If

End Sub

 

[My Aswer Is This]

Re: Deleting cells from the bottom of a table

Try this:

Private Sub CommandButton2_Click()
'Modified  8/30/2018  7:27:44 PM  EDT
    
    With ActiveSheet.ListObjects("npss_quote").DataBodyRange
        ans = .Rows.Count
        .Rows(ans).Delete
    End With
End Sub

 

[dpaton05]

Re: Deleting cells from the bottom of a table

Thankyou, that code works perfectly