VBA Delete Entire Row if Contains Certain Text

[bigmacneb]

I've searched on here, but every code I put in gives me an error back. Data in column D, If any of the cells contains "Record Only" I need it to delete the entire row.
Thanks

 

[rileyma]

Thank you!

 

[JoeMo]

MNexcel,
You can only have one subroutine with the name test. Try naming your three subroutines test1, test2 and test3.

 

[moramramesh]

Can we search for multiple words and delete those rows?

 

[hiker95]

moramramesh,

We can not tell what worksheet(s), cells, rows, columns, your raw data is in.

And, we can not tell what the results should look like.

You could improve your chance of getting some help if you post some sample data and a sample of the results you would like to see. See this link for how to post your data. https://www.mrexcel.com/forum/about-...tachments.html

Alternately, you could upload a copy of your file to a free site such as www.box.com. or www.dropbox.com.

Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here.

Include a detailed explanation of what you would like to do referring to specific cells, rows, columns and worksheets.

If the workbook contains confidential information, you could replace it with generic data.

 

[LordWard]

The posts so far have been regarding deleting rows with specific text, eg. "Record Only". I want to delete rows which contain the text specified in another cell, so that a user can change the text in that cell without having to edit the macro. For example, cell L5 on a tab called “Lookup”, The user can change the contents from “Blue” to “Red” and the next time it is run, the rows with “Red” will be deleted.

Why does the below find no rows to be deleted? What would work?

Last = Cells(Rows.Count, "V").End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, "V").Value) = "=’Lookup’!L5" Then
Cells(i, "A").EntireRow.delete
End If
Next i

 

[MARK858]

If Cells(i, "V").Value = Sheets("Lookup").Range("L5").Value Then
Cells(i, "A").EntireRow.Delete

Edited to remove unnecessary brackets left from post 175

 

[LordWard]

If Cells(i, "V").Value = Sheets("Lookup").Range("L5").Value Then
Cells(i, "A").EntireRow.Delete

Edited to remove unnecessary brackets left from post 175

Thank you! This solved it