Search for a value in a column 1

[acrosby]

Greetings,

I am trying to write some VBA code to read each cell in column A. If a negative value is found then the corresponding cell in column B will have a 0 in it.

I've tried writing code for this but have had no such luck!

Thanks much for all your help.
acrosby

 

[SkipVought]

Hi,

Here's an approch...

    With ActiveSheet.UsedRange
      For Each c In Range(Cells(.Row, 1), Cells(.Rows.Count + .Row - 1, 1))
         If c.Value < 0 Then c.Offset(0, 1).Value = 0
      Next
    End With

Hope this helps

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[acrosby]

Thanks so much, Skip. That helped me out a lot!

~acrosby