Delete

[ecarney14]

I just want to clear the cell if it has a value less than the min

Any help would be great!


For Each cell In [B2:B20000]
If cell.Value < iMin
Rows(cell.Row).Delete
End If
Next cell

 

[GlennUK]

Do you mean "clear the cell" or "delete the row"? There is a big difference.

 

[Richard Schollar]

Hi

You'll need to go backwards, so best to use an index number:

For i = 20000 to 2 Step -1
If Cells(i,2).Value<iMin Then Cells(i,2).EntireRow.Delete
Next i

But note that I think you would probably be best off using Autofilter and deleting the whole selection in one go.

Richard

 

[ecarney14]

Thanks a lot. It's working now!