need a macro

[JasonLeVan]

i need a macro that will look in column "N" starting in row 1 and if the number 0 appears then to change the cell in column "O" in the same row to a zero. thanks

 

[jeffreybrown]

How about...

Sub ChangeZero()
    Dim LR As Long: LR = Range("N" & Rows.Count).End(xlUp).Row
    Dim i As Long
    For i = 1 To LR
        If Range("N" & i).Value = 0 Then Range("O" & i).Value = 0
    Next i
End Sub

 

[repairman615]

Hello,

Try this on a copy.


<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> ZeroFinder()<br><br><SPAN style="color:#00007F">Dim</SPAN> c<br><br><SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> Range("N:N")<br>    <SPAN style="color:#00007F">If</SPAN> c.Value = "0" <SPAN style="color:#00007F">Then</SPAN> c.Offset(0, 1).Value = 0<br><SPAN style="color:#00007F">Next</SPAN> c<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Without the quotes around the zero ("0"), it places a whole lot of zeros down col. O:O.