Macro to delete table rows based on the absence of a single specific keyword

JellehFishh · #1 06-27-2019, 06:34 AM

Hi all,

I don't have any VBA training but I like to scour the internet to try Frankenstein macros that suit my needs.

I need a macro that will search a table and delete ALL rows that DO NOT contain a single consistent and unchanging keyword (in column 4).

I have the following that seems to reliably delete ALL rows that DO contain the keyword but I can't seem to invert the function.

Thank you!

Sub DeleteRowsKEYWORD()

Dim TargetText As String
Dim oRow As Row

If Selection.Information(wdWithInTable) = False Then Exit Sub

TargetText = "KEYWORD"

For Each oRow In Selection.Tables(1).Rows
If oRow.Cells(4).Range.Text = TargetText & vbCr & Chr(7) Then oRow.Delete
Next oRow

End Sub

gmaxey · #2 06-27-2019, 07:17 AM

Code:

Sub DeleteRowsKEYWORD()
Dim TargetText As String
Dim oRow As Row
  If Selection.Information(wdWithInTable) = False Then Exit Sub
  TargetText = "KEYWORD"
  For Each oRow In Selection.Tables(1).Rows
    If InStr(oRow.Cells(4).Range.Text, TargetText) = 0 Then oRow.Delete
  Next oRow
End Sub

JellehFishh · #3 06-27-2019, 08:23 AM

Does exactly what I need it to, thanks!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Design Macro or Code to Delete Table Rows When Null/Blank/Empty Upon Doc Close/Save	aaghd72	Word VBA	8	02-18-2019 11:22 AM
Macro delete table rows if cell in first column = $	Btop	Word VBA	7	02-13-2018 05:36 PM
Automatically delete row based on keyword-VBA	yoyo4	Excel Programming	4	12-06-2017 06:10 AM
Excel VBA macro to copy specific rows and delete it	pourmalla	Excel Programming	2	04-02-2017 12:09 AM
Macro to delete rows not containing specific text	Alimou	Excel Programming	4	02-06-2017 07:35 AM