Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace blank cells with 0
I need a code that will search a range (let's say A1:Z1) and will replace any
blank cells with a zero (0). |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace blank cells with 0
If true blanks.............
Sub Zeros() Dim rng As Range Set rng = Nothing On Error Resume Next 'just in case there are no blanks Set rng = Range("A1:Z1").SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If rng Is Nothing Then 'do nothing Else rng.Value = 0 End If End Sub Gord Dibben MS Excel MVP On Thu, 18 Jun 2009 07:32:01 -0700, scrabtree23 wrote: I need a code that will search a range (let's say A1:Z1) and will replace any blank cells with a zero (0). |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Replace blank cells with 0 | Excel Programming | |||
Replace blank cells with 0 | Excel Programming | |||
Replace blank cells with NONE | Excel Programming | |||
Replace cells with blank | Excel Worksheet Functions | |||
Replace cells with blank | Excel Worksheet Functions |