Replace zero with nothing - ,acro

[blaksnm]

Hey Guys
I try to record a macro that replace all single-zeros (just the cells where one zero-character is the whole input) with blanc (I want to emty all cells that contain this singel zero-character.

I know i have seen something like this before, but dont remember where ..

 

[jasonb75]

Try

Sub test()
Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole
End Sub

 

[blaksnm]

Thanks - that macro works ... in a way ...
I use the tecnique to count cells containing something else than zero (skip counting blanks) on a range.
Your macro replaces zero with blanc all right, but still - when i use the count-formulas on the range - the cells seems to contain some hidden characters ore something that make my formula respond with a count. This is only correctet when I use the delete-button on the appearently emty cell.
Are there a way around this problem?

 

[jasonb75]

why not just use a formula?

=countif(A1:Z99,"<>0")-countblank(A1:Z99)

 

[blaksnm]

Good sugestion, but as long as the "empty" cells value is som kind of hidden value the formula wil not read this as blank

 

[jasonb75]

I meant use the formula without clearing the 0 values first.

=countif(A1:Z99,"<>0") will count all cells that have anything other than 0 (which will include empty cells if there are any)

then -countblank(A1:Z99) will subtract the count of empty cells (if any) to give a true count of non 0 values.<!-- / message -->

 

[blaksnm]

Thanks a lot for your advise - Ill try it

 

[jasonb75]

I have a way of doing what you asked originally, but the macro recorder doesn't recognise what is being done, and so far no luck in finding any way to code it, to do it manually.

Ctrl F

Find What : 0

Options >> Match entire cell contents -- yes

Find All

Ctrl A

Escape

Delete

 

[blaksnm]

Thanks again
The problem seems to be solved
Have a nice weekend