delete entire row if cell contains - Excel 2010 1

[tonyvee1973]

Hi All

Looking for some help on a simple one i hope
I have an excel spreadsheet and want to delete the entire row if a cell in column E contains the text 222300

Any help would be appreciated

 

[tonyvee1973]

got the code below but this seems to delete the row if a cell in column D is blank then move the rest up. i cant think on how to convert to get the row to delete if a cell in column D = 222300
Help!

Sub delete_row()
Dim i As Integer, n As Integer
n = Selection.Rows.Count
For i = 1 To n
Range("D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Selection.Delete Shift:=xlUp
Next i
End Sub

 

[tonyvee1973]

its ok, worked it out.
I use the code below and i can insert the required value and column - it seems to work!

Sub DeleteRows()
Dim c As Range
Dim SrchRng As Range
Dim SrchStr As String

Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp))
SrchStr = InputBox("Please Enter A Search String")
Do
Set c = SrchRng.Find(SrchStr, LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing

End Sub

 

[SkipVought]

Hi,

Turn on your AutoFilter

Assign the column D filter as 222300

Select all the VISIBLE DATA ROWS and Right-Click - DELETE



Skip,

_{Just traded in my old subtlety...
for a NUANCE!}