Find Cell Value and remove row

[t111kav]

Hi everyone,

I have a table of data (numbers only) covering columns A:E - i want to find any cells in column E containing exactly "0" (must be exact as the rest are numbers so "1000" shouldnt be removed its only cells with "0")

If column E has a cell with 0 in i then want to clear contents from E-A but leaving columns F onwards untouched.

Any help would be much appreciated

Thanks in advance
Tim

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("E" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    If Range("E" & i).Value = 0 Then Range("A" & i).Resize(, 5).ClearContents
Next i
End Sub

 

[t111kav]

Perfect!

Thats great - and has to be a record - such a quick reply.

Many thanks