Replace certain number with empty cell in a range

[DonAndress]

Hello.

I have a range Range("F14:R40") where each cell is a formula that returns a value.
I'd like to replace the content of each cell that returns zero to empty cell.
So I was thinking somethnig like that would do the trick but unfortunatelly it doesn't...

With Range("F14:R40")
    .Replace "0", "", xlWhole
End With

or

With Range("F14:R40")
    .Replace 0, "", xlWhole
End With

Can you please tell me how to do that quickly (in terms of the code time consumption)?

 

[steve the fish]

Why not just have it in the formula?

 

[DonAndress]

Well, mostly because I'd like to approach this problem in a different way

 

[Peter_SSs]

Well, you could loop through each cell in the range, check if it has a formula and value zero and, if so, clear contents.

However, assuming all formulas in the range return numerical values, I'd be more inclined to start with the formula & change it like so

=IF(current_formula=0,"",current_formula)

Of course that won't leave the cell empty, just appears that way. But then you could use this to make it really empty

Sub Replace_Results()
  On Error Resume Next
  Range("F14:R40").SpecialCells(xlFormulas, xlTextValues).ClearContents
  On Error GoTo 0
End Sub

 

[DonAndress]

Hi Peter.

Thanks for your reply but before you were kind enough to do that I figured out something like below:

With Range("S14")
    .Formula = "=SUMPRODUCT(F14:R14,F14:R14)"
End With

Range("S14").AutoFill Destination:=Range("S14:S40"), Type:=xlFillValues

With Range("S14:S40")
    .Value = .Value
    .Replace "#N/A", "DEL", xlWhole
End With

For i = 0 To 26

    If Range("S14").Offset(i, 0) = "DEL" Then
        Range("F14:R14").Offset(i, 0).Value = ""
    ElseIf Range("S14").Offset(i, 0) = 0 Then
        Range("F14:R14").Offset(i, 0).Value = ""
    End If

Next i

Do you think my way is much slower?

 

[Peter_SSs]

Do you think my way is much slower?

It solves a different problem so it isn't comparable. Your original request was to delete cells if the formula returned zero. This code only deletes cells if the whole row of formulas return zero.

However, if it seems fast enough to you & does what you want, then use it.

 

[DonAndress]

But it leads to the same result
Ok, thanks a lot, mate!

 

[Peter_SSs]

But it leads to the same result

It might on your worksheet, but it didn't on mine.
Anyway, if you are happy, I'm happy.