ResellerRatings Store Ratings - View Single Post

Epidemic · 10-02-2003, 03:39 PM

Code:

Sub biteme()
    Cells(1, 1).EntireColumn.Find("hello", LookIn:=xlWhole, Lookat:=xlWhole).Select
    Selection.EntireRow.Delete
End Sub

Well this is not exactly what i desired but it is close.

of course substitute you test value and column.

Cells (1,1) is the first cell first column then I use entire column to look through the all rows.

10-02-2003, 03:39 PM	#5 (permalink)
Epidemic Registered User Join Date: Mar 2002 Posts: 400	Code: Sub biteme() Cells(1, 1).EntireColumn.Find("hello", LookIn:=xlWhole, Lookat:=xlWhole).Select Selection.EntireRow.Delete End Sub Well this is not exactly what i desired but it is close. of course substitute you test value and column. Cells (1,1) is the first cell first column then I use entire column to look through the all rows.