Help - Replace Values Less Than Zero

[Delta Star]

I have a range of cells D64:CD230763. I need to be able to replace any cells less than zero with 0. Can anyone assist?

 

[VoG]

Try

Sub zero()
Dim c As Range
For Each c In Range("D64:CD230763")
    If c.Value < 0 Then c.Value = 0
Next c
End Sub

 

[pgc01]

Hi

Another option:

- select the cells with the numbers
- use Find/Replace with the option "Match entire cell contents", replace -* with 0

 

[mirabeau]

Or another code option

Sub negtozero()
Range("D64:CD230763").Name = "a"
Range("a") = Evaluate("if(a<0,0,a)")
End Sub