Macro analyses Cell . If text found , delets entire row

[andrei]

I have a table with many columns and rows . Tha Macro should search if cells
from C column contain text . If yes , it delets entire row .

 

[Gary''s Student]

Something like this:

Sub rowkiller()
Dim s As String, n As Long, i As Long
s = "text"
n = Cells(Rows.Count, 3).End(xlUp).Row
For i = n To 1 Step -1
If InStr(Cells(i, 3).Value, s) > 0 Then
Rows(i).Delete
End If
Next
End Sub

 

[Otto Moehrbach]

I didn't take your "text" to mean the word "text". I think you meant any
text not including a numeric entry. The following macro will do what you
want. HTH Otto
Sub DelCText()
Dim rColC As Range
Dim c As Long
Set rColC = Range("C2", Range("C" & Rows.Count).End(xlUp))
For c = rColC(rColC.Count) To 1 Step -1
If rColC(c) <> "" And _
Not IsNumeric(rColC(c)) Then _
rColC(c).EntireRow.Delete
Next c
End Sub

 

[andrei]

Yep , i meant any text not including numeric entry

The macro gives a type mismatch for :
For c = rColC(rColC.Count) To 1 Step -1


@Gary''s Student

I tried your macro , also . But it nothing happens

 

[Otto Moehrbach]

Yes, my mistake. Change it to: Otto
For c = rColC.Count To 1 Step -1

 

[Gary''s Student]

This version removes rows with any text in column C:

Sub rowkiller2()
Dim n As Long, i As Long
n = Cells(Rows.Count, 3).End(xlUp).Row
For i = n To 1 Step -1
If IsNumeric(Cells(i, 3).Value) Then
Else
Rows(i).Delete
End If
Next
End Sub

 

[andrei]

Many thanks guys

Both macro work !