VBA to remove a row from a table

[gheyman]

I have a ta Table (Table7) on Sheet "Cats"

I want to to be able to remove/delete one of the Row based on whats in cell C10 on sheet4. C10 on sheet4 is a Listbox based on the table

So if C10 the user selected "Mechanical" the code will find "Mechanical in table7 and delete it.

Hope that makes sense. Thanks for the help and teaching us how to do amazing things!

 

[DanteAmor]

Try this:
The following deletes the row from the table, it does not delete the entire row from the sheet.

Sub DeleteInTable()
  Dim tbl As ListObject
  Dim f As Range
  Dim i As Long
  Set tbl = Sheets("Cats").ListObjects("Table7")
  Set f = tbl.DataBodyRange.Find(Sheets("Sheet4").Range("C10").Value, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then
    i = tbl.Range.Cells(1).Row
    tbl.ListRows(f.Row - i).Delete
  End If
End Sub

 

[gheyman]

Thank you! Worked Perfectly.

 

[DanteAmor]

Im glad to helo you, thanks for the feedback.