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!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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