Macro To Change a Formula to A Value

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

carl - 13 Oct 2006 07:50 GMT

I have a formula in ColB of my worksheet.

The value of the formula will be zero or a positive number.

Is it possible for a macro to change the formula to its value if the value
is not equal to zero ?

Thank you in advance.

Reply to this Message

Stefi - 13 Oct 2006 08:03 GMT

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

Regards,
Stefi

„carl” ezt írta:

> I have a formula in ColB of my worksheet.
>
[quoted text clipped - 4 lines]
>
> Thank you in advance.

Reply to this Message

Bob Phillips - 13 Oct 2006 09:21 GMT

Stefi,

No need to do wasteful selecting

Sub changetoval()
For Each cella In Range("B2:B8") 'ADJUST RANGE!
If cella <> 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)

> Sub changetoval()
> Range("B2:B8").Select 'ADJUST RANGE!
[quoted text clipped - 18 lines]
> >
> > Thank you in advance.

Reply to this Message