Syntax error

[Picola]

Hello,

Can someone let me know why the following line triggers a "Syntax Error" ?

With ThisWorkbook.Worksheets(CST_ALLOCATION_SHEET_NAME)

.Range("O6").Formula = "=IF(OR($H6="PO100",$H6="PO120"),IFERROR(J6+$J6*INDEX(TecBase,MATCH(Raw_data_BW!$A8,TecBase!$B$6:$B$150,0),MATCH(O$4,TecBase!$L$5:$O$5,0)),""),J6)"

End with

Thanks a lot !
Picola

 

[VoG]

You need to double-up the quotes within the formula

With ThisWorkbook.Worksheets(CST_ALLOCATION_SHEET_NAME)

    .Range("O6").Formula = "=IF(OR($H6=""PO100"",$H6=""PO120""),IFERROR(J6+$J6*INDEX(TecBase,MATCH(Raw_data_BW!$A8,TecBase!$B$6:$B$150,0),MATCH(O$4,TecBase!$L$5:$O$5,0)),""""),J6)"

End With

 

[Picola]

Hello VOG,

Thanks it works ! But may I ask you why ? What is the logic behind ? Not sure to understand.

Thanks a lot again.

You need to double-up the quotes within the formula

With ThisWorkbook.Worksheets(CST_ALLOCATION_SHEET_NAME)

    .Range("O6").Formula = "=IF(OR($H6=""PO100"",$H6=""PO120""),IFERROR(J6+$J6*INDEX(TecBase,MATCH(Raw_data_BW!$A8,TecBase!$B$6:$B$150,0),MATCH(O$4,TecBase!$L$5:$O$5,0)),""""),J6)"

End With

 

[VoG]

Without the """ the Excel compiler does not know where your formula code ends, denoted by ""