Modify a Macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

carl - 28 Oct 2006 01:51 GMT

Thanks Bob P for this.

Is it possible to modify this so that it also turns the formula to value if
the cell is not equal to 0 or the formula returns an error like
#NT/FND,#NUM!, #N/A etc.

Sub changetoval()
For Each cella In Range("m18:m1000") 'ADJUST RANGE!
If cella <> 0 Then
cella.Value = cella.Value
End If
Next cella
End Sub

Thank you in advance.

Reply to this Message

Bob Phillips - 28 Oct 2006 10:32 GMT

Sub ChangeToVal()
For Each cella In Range("M18:M1000") 'ADJUST RANGE!
If IsError(cella.Value) Then
cella.Value = ""
ElseIf cella.Value <> 0 Then
cella.Value = cella.Value
End If
Next cella
End Sub

Signature

HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

> Thanks Bob P for this.
>
[quoted text clipped - 11 lines]
>
> Thank you in advance.

Reply to this Message