excel input 0 when cell blank or deleted by key or spacebar

C

Curt

Need to write a macro that will update sheet if entry error. Need to replace
entry error with 0 so formulas will work. Blank cell gives error msg. Macro
will be run to correct. I am useing excel 2000. Have tried =if(b1="",0,)
also
=if(and(b1<>"",b1=0),"n/a","") next =if(iserror(org form),"",(orig form))
 
D

Dave Peterson

Record a macro when you select your range
edit|replace
what: (leave empty)
with: 0
replace all
 
C

Curt

Thanks much. Do you have any idea why it will only do two columns? I have re
written the order still same. Is there a limit on this function. Columns are
12 rows not together. At 68 it sure is fun learning about this and what it
will do
 
D

Dave Peterson

Edit|Replace only works against the used range.

If you hit ctrl-end, is the selected cell to the right or left of that
not-included column. If it's to the left, then that's a problem.

If it's to the right, then I'd bet your "empty" cells aren't really empty.

Maybe you have a spacebar (or two in those cells)???
 
C

Curt

Yes there would be a spacebar or a delete entyry in cell. Listed all ranges
in macro guess limit passed
Thanks much will hav to try a different approach
gday
 
D

Dave Peterson

If there's a single space bar in each of those cells, you could
select the range
edit|Replace
what: (spacebar)
with: (leave empty)
(make sure "match entire cell contents" is checked)
replace all.

In fact, if you knew that all the cells that looked empty contained no more than
say 6 space characters, you could keep doing these edit|replaces.

If you're not sure, you could look through all the cells in the selection and
clean them up.

Option Explicit
Sub testme()

Dim myRng As Range
Dim myCell As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeConstants))
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "No constants in selection"
Exit Sub
End If

For Each myCell In myRng.Cells
If Trim(myCell.Value) = "" Then
myCell.Value = 0
End If
Next myCell

End Sub


Yes there would be a spacebar or a delete entyry in cell. Listed all ranges
in macro guess limit passed
Thanks much will hav to try a different approach
gday
Click to expand...
 
Top