VBA Question: IF value in M >0, set O="Delete"

[Guest]

In my worksheet I have several rows that I want to delete based on a flag
value from other calculations. What I need to do is set the value in column
O to "delete", for the corresponding row, IF the value in column M is >0.

Logic is like this:

IF M >0, then set O="Delete"

Can you help?

Thanks in advance!

Scott

 

[Guest]

Hi

You could use an Autofilter, to filter out the strictly positive values in
column M.

Then go to column O, select the whole column, hit F5 > Special... > visible
cells, hit Delete.

 

[Guest]

Scott,

Try something like this:

Sub test()
Dim c As Range
For Each c In Application.Intersect(ActiveSheet.UsedRange,
ActiveSheet.Range("M:M"))
If IsNumeric(c.Value) And c.Value > 0 Then
c.Offset(0, 2).Value = "delete"
End If
Next c
End Sub