Macro that puts "0" into blank cells,

[Greg Determann]

but if the cell contains a value then to leave it alone. This works for one cell:

If Range("B23") = "" Then Range("B23") = "0"

But I want to check in columns b,d, and f and in rows 17-33 and 80-91 without touching the other cells.

Any ideas? Thanks in advance.

 

[Von Pookie]

Here's one way:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> ZeroBlanks()
<SPAN style="color:#00007F">Dim</SPAN> cell <SPAN style="color:#00007F">As</SPAN> Range, myRange <SPAN style="color:#00007F">As</SPAN> Range

<SPAN style="color:#00007F">Set</SPAN> myRange = Union([B17:B33], [D17:D33], [F17:F33])

<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> cell <SPAN style="color:#00007F">In</SPAN> myRange
    <SPAN style="color:#00007F">If</SPAN> cell.Value = "" <SPAN style="color:#00007F">Then</SPAN> cell.Value = 0
<SPAN style="color:#00007F">Next</SPAN> cell

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Greg Determann]

Thanks Kristy - perfect...

 

[KenWright]

Can also be done without a macro, eg - Select range, do Edit / Go To / Special / Blanks, type 0 and hit CTRL+ENTER.