Command button to replace empty cell with text

[Choong]

Range B6:J36 having some result
but some cell column will not have value / blank or #div/0
want to replace those cell with no value/blank or #div/0 with text "NIL"

 

[Smallman]

Hi Choong

Give the following a crack. If it does not work then please post a file.

Sub RemDta()
  [b6:j36].SpecialCells(4) = "Nil" '4 = Blanks in the Specialcells world
  [b6:j36].Replace "#div/0", "Nil" 'Find your text and replace
End Sub

Take care

Smallman

 

[Ananda Kumar C]

Hi,

If your range B6:J36 has a formula, wrap that formula like this IFERROR(IF(ISBLANK(formula),"Nil",formula),"Nil")

Anand