Enter formula by code.
 

Hi All

can anyone help. I cant seem to get this to work.

I keep getting run time error 1004

application or object defined error.

Public Sub TLIdentify()

finalrow = Worksheets("INV Bookings").Range("B65536").End(xlUp).Row

Worksheets("INV Bookings").Range("AV26:AV" & finalrow).FormulaR1C1 =
"=IF(OR(RC[-38]0,RC[-32]0,RC[-26]0,RC[-20]0,RC[-14]0,RC[-8]0,RC[-2]0),VLOOKUP(RC4,'Team Summary'!R4C3:R16C4,2,0),"")"

End Sub
--
Regards and Thanks for any assistance.

Francis Brown.

Enter formula by code.
 

On Sun, 21 Feb 2010 10:45:01 -0800, Francis Brown
wrote:

Hi All

can anyone help. I cant seem to get this to work.

I keep getting run time error 1004

application or object defined error.

Public Sub TLIdentify()

finalrow = Worksheets("INV Bookings").Range("B65536").End(xlUp).Row

Worksheets("INV Bookings").Range("AV26:AV" & finalrow).FormulaR1C1 =
"=IF(OR(RC[-38]0,RC[-32]0,RC[-26]0,RC[-20]0,RC[-14]0,RC[-8]0,RC[-2]0),VLOOKUP(RC4,'Team Summary'!R4C3:R16C4,2,0),"")"

End Sub

You have to double your "s in the end of the IF statement.
As the formula is inside a long string a single " will be interpreted
as the end of this string rather than a " that is to be part of the
formula.

Change you formula like this:

......R16C4,2,0),"""")"

and say good bye to the error 1004 :-)

Hope this helps / Lars-Åke