[ExcelVBA] Code that needs help

 

I have code that I want to modify if possible. The object of this code is to delete rows that contain a specific value in a specific column. Here is what I am using now:

Sub Delete_2033_Types()
'line below deletes rows that do not have a number value assigned in column 3
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lrow To 2 Step -1
If Not IsNumeric(Cells(i, 3)) Then Rows(i).Delete
Next i
End Sub
How can I modify this so that if the value in column 3 equals the integer 20 or 33 it will be deleted?

__._,_.___

---

Posted by: mgarza@fellowes.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___