Hi,
I am facing a problem with incorporating a recorded code in another code.
When I paste the recorded code in my main code I get run time error 1004.
Recorder gave me the code below
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]<>""Check"",RC[-1],IF(AND(OR(LEFT(RC[-31],3)=""COK"",LEFT(RC[-31],3)=""CCJ"",LEFT(RC[-31],3)=""TRV"",LEFT(RC[-31],3)=""MAA"",LEFT(RC[-31],3)=""HYD"",LEFT(RC[-31],3)=""BLR"",LEFT(RC[-31],3)=""GOI"",LEFT(RC[-31],3)=""BOM"",LEFT(RC[-31],3)=""DEL"",LEFT(RC[-31],3)=""LKO"",LEFT(RC[-31],3)=""JAI""),OR(RIGHT(RC[-31],3)=""COK"",RIGHT(RC[-31],3)=""CCJ"",RIGHT(RC[-3" & _
"TRV"",RIGHT(RC[-31],3)=""MAA"",RIGHT(RC[-31],3)=""BLR"",RIGHT(RC[-31],3)=""HYD"",RIGHT(RC[-31],3)=""GOI"",RIGHT(RC[-31],3)=""BOM"",RIGHT(RC[-31],3)=""DEL"",RIGHT(RC[-31],3)=""LKO"",RIGHT(RC[-31],3)=""JAI"")),""RT"",""Check""))"
ActiveCell.Offset(1, 0).Range("A1").Select
My code looks like :
With Range("AM2:AM" & Range("A1").End(xlDown).Row)
.FormulaR1C1 = _
"=IF(RC[-1]<>""Check"",RC[-1],IF(AND(OR(LEFT(RC[-31],3)=""COK"",LEFT(RC[-31],3)=""CCJ"",LEFT(RC[-31],3)=""TRV"",LEFT(RC[-31],3)=""MAA"",LEFT(RC[-31],3)=""HYD"",LEFT(RC[-31],3)=""BLR"",LEFT(RC[-31],3)=""GOI"",LEFT(RC[-31],3)=""BOM"",LEFT(RC[-31],3)=""DEL"",LEFT(RC[-31],3)=""LKO"",LEFT(RC[-31],3)=""JAI""),OR(RIGHT(RC[-31],3)=""COK"",RIGHT(RC[-31],3)=""CCJ"",RIGHT(RC[" & _
"""TRV"",RIGHT(RC[-31],3)=""MAA"",RIGHT(RC[-31],3)=""BLR"",RIGHT(RC[-31],3)=""HYD"",RIGHT(RC[-31],3)=""GOI"",RIGHT(RC[-31],3)=""BOM"",RIGHT(RC[-31],3)=""DEL"",RIGHT(RC[-31],3)=""LKO"",RIGHT(RC[-31],3)=""JAI"")),""RT"",""Check""))"
End With
Please help.
VKS
Bookmarks