Create Loop to delete Value in tables if found in lookup - then delete lookup value

[Paul1005]

I thought this would be easy but ive hit a brick wall and am struggling to get my head round what is needed.

I need to lookup the last value in the Sold Tab - Sold Table and then Search tables1,2 & 3 to see if value is found - If so delete this row.
Then return to the Sold Table and delete the variable just used.
I can't figure out how to loop it so it runs as many times as there are values in the sold table, so that all matching variables are deleted from Tables 1,2 & 3 - i.e if 3 variables run 3 times etc

This is as far as i have got so far, can anyone help please?

Sub AAAA()

Dim Share As Range
Dim c As Range
Dim ws As Worksheet

Worksheets("Sold").Activate


Cells.Find(What:="Sold Share").End(xlDown).Select
If ActiveCell = "" Then Exit Sub
If ActiveCell <> "" Then Selection.Select
Set Share = ActiveCell

Worksheets("1").Activate
For Each c In Range("Table2")
    If c = Share Then c.EntireRow.Delete
    Next c

Worksheets("2").Activate
For Each c In Range("Table3")
    If c = Share Then c.EntireRow.Delete
    Next c

Worksheets("3").Activate
For Each c In Range("Table4")
    If c = Share Then c.EntireRow.Delete
    Next c

Worksheets("Sold").Activate
For Each c In Range("Sold")
    If c = Share Then c.EntireRow.Delete
     Next c

End

End Sub

 

[DanteAmor]

Try this:
Change the 4 in the macro to the column number you're looking for

Sub AAAA()
  Dim sh As Worksheet
  Dim lo As ListObject
  Dim Share As Range, rng As Range, f As Range
  Dim s As Variant
 
  Set Share = Sheets("Sold").Cells.Find("Sold Share", , xlValues, xlWhole, , , False).End(xlDown)
  If Share.Value = "" Then Exit Sub
 
  For Each s In Array("1", "2", "3", "Sold")
    Set sh = Sheets(s)
    Set lo = sh.ListObjects(1)
    Set f = lo.ListColumns(4).Range.Find(Share.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      lo.Range.AutoFilter Field:=4, Criteria1:="=" & Share.Value
      lo.Range.Offset(1).EntireRow.Delete
      lo.Range.AutoFilter
    End If
  Next
End Sub

 

[Paul1005]

Try this:
Change the 4 in the macro to the column number you're looking for

Sub AAAA()
  Dim sh As Worksheet
  Dim lo As ListObject
  Dim Share As Range, rng As Range, f As Range
  Dim s As Variant
 
  Set Share = Sheets("Sold").Cells.Find("Sold Share", , xlValues, xlWhole, , , False).End(xlDown)
  If Share.Value = "" Then Exit Sub
 
  For Each s In Array("1", "2", "3", "Sold")
    Set sh = Sheets(s)
    Set lo = sh.ListObjects(1)
    Set f = lo.ListColumns(4).Range.Find(Share.Value, , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      lo.Range.AutoFilter Field:=4, Criteria1:="=" & Share.Value
      lo.Range.Offset(1).EntireRow.Delete
      lo.Range.AutoFilter
    End If
  Next
End Sub

Excellent thanks Dante

 

[DanteAmor]

Im glad to help you, thanks for the feedback.