replace empty cells with 0

[danno_mbk]

I am trying to replace all empty cells with a 0 value in a worksheet? Can anyone help please ?

Also can this be customised to complete the task with a selected range ?
thanks

 

[The Tamer]

Sure

Select the area you want to do this to (or ctrl + A for the whole sheet)

Edit / goto / special / blank cells

type "0" then press CTRL & Enter together.

Hope this helps

Tamer

 

[chiello]

Well done 'The Tamer' :wink:

Nevertheless, danno_mbk, if you want a macro do it for you, use the code below:

Public Sub ReplNullWithZero()
Dim c As Range
On Error Resume Next
Set c = Selection.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not IsEmpty(c) Then
c.Value = 0
End If
End Sub

Ciao