VBA code for an error

[Xrull]

Good Day to you all,
I'm trying to write a VBA code to place the value of these formulas in the cells.

=IF(ISERROR(IF(D3="","",I3-F3)),"Re-check",(IF(D3="","",I3-F3)))

or

=IF(ISERROR(IF(D3<>"",I3-F3,"")),"Re-check",(IF(D3<>"",I3-F3,"")))

These formulas are subtracting dates.
I need it to run the length of Column N.
I tried to write a code, I'm unable to overcome the error a text is placed in the a cell in column L or column I in the but I'm afraid it is not making any sense to me.
Please help,
Xrull

 

[Xrull]

jasonb75,
The code is giving me a run time error '13' Type mismatch. I'm not familar with the IFERROR part of the code I use If(iserror(.
I'm working with Excel 2003, and probably you are writing the code for Excel 2007. I
Thanks,
Xrull

 

[jasonb75]

Just had the same problem with another guy I've been trying to help out, IFERROR is 07 only, give me 5 to rewrite

Try

Sub Macro15() 'Invoice date to post date
 With Sheets("Entry")
      For a = 3 To Range("D" & Rows.Count).End(xlUp).Row
      If Range("D" & a) <> "" Then
      Range("M" & a) = "=IF(ISERROR(L" & a & "-I" & a & "),""Re-check"",L" & a & "-I" & a & ")"
      End If
      If Range("M" & a).Value < 0 Then Range("M" & a) = "Re-check"
      Range("M" & a) = Range("M" & a).Value
      Next
      End With
 
End Sub

 

[Xrull]

jasonb75,
It worked. Now I can have a strong drink and get some sleep. I've got to study this code.
Thanks

 

[jasonb75]

Haha good luck with the study if you want to try and make any sense of it, maybe a few more of those strong drinks in order first