About Us

Gord Dibben

See my post.

Gord

On Tue, 6 Apr 2010 11:37:20 -0700, Jamie
wrote:

I figured out the issue. Is there a way to make that macro only work the
cells selected? That would be more helpful.

Thanks - Jamie

"Paul C" wrote:

Use this line of code to change the active cell formula

ActiveCell.Formula = "=if(iserror(" & Right(ActiveCell.Formula,
Len(ActiveCell.Formula) - 1) & "),0," & Right(ActiveCell.Formula,
Len(ActiveCell.Formula) - 1) & ")"

This would fix all errors on a the active sheet

Sub FixErrors()
Dim Cell As Object, Sh As Object

For Each Cell In ActiveSheet.UsedRange.Cells
If IsError(Cell.Value) Then
Cell.Formula = "=if(iserror(" & Right(Cell.Formula, Len(Cell.Formula) -
1) & "),0," & Right(Cell.Formula, Len(Cell.Formula) - 1) & ")"
End If
Next Cell

End Sub

--
If this helps, please remember to click yes.

"Jamie" wrote:

Hi,

Can anyone write a macro for me so that it takes the current formula I have
in a cell and adds a IF function and iserror fuction around it.

Here is what I would like:

Current formula =A1/B1

after running the macro I would like it to look like this:
=if(iserror(A1/B1),0,A1/B1)

Thanks for your help.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating a Macro the right way?	Hvns	Excel Worksheet Functions	2	January 25th 10 09:16 PM
VBA and creating a Macro	tommy	Excel Discussion (Misc queries)	4	January 28th 09 03:52 PM
Creating a New Macro	SharonJo	Excel Discussion (Misc queries)	1	April 4th 08 01:27 AM
Creating a macro	Gene Goldenfeld	New Users to Excel	10	May 5th 05 04:28 PM
Need Help Creating A Macro	LJ Owen	Excel Worksheet Functions	1	March 2nd 05 01:52 PM

Menu

About Us