Paste formula to cells on a command button RTE 1004

[ipbr21054]

I am having an issue when i am pasting formulas to worksheet cells.

This is what i have in use but im getting RTE 1004 Application defined or object defined error
Can you advise please

Private Sub PasteFormulas_Click()
     Dim WS As Worksheet

     Set WS = Worksheets("INV")

     WS.Range("G14").Formula = "=IFERROR(IF(INDEX(DATABASE!R:R,$H$13)=0,"",INDEX(DATABASE!R:R,$H$13)),"")"
     WS.Range("G15").Formula = "=IFERROR(IF(INDEX(DATABASE!S:S,$H$13)=0,"",INDEX(DATABASE!S:S,$H$13)),"")"
     WS.Range("G16").Formula = "=IFERROR(IF(INDEX(DATABASE!T:T,$H$13)=0,"",INDEX(DATABASE!T:T,$H$13)),"")"
     WS.Range("G17").Formula = "=IFERROR(IF(INDEX(DATABASE!U:U,$H$13)=0,"",INDEX(DATABASE!U:U,$H$13)),"")"
     WS.Range("G18").Formula = "=IFERROR(IF(INDEX(DATABASE!V:V,$H$13)=0,"",INDEX(DATABASE!V:V,$H$13)),"")"
     
     WS.Range("L14").Formula = "=IFERROR(IF(INDEX(DATABASE!D:D,$H$13)=0,"",INDEX(DATABASE!D:D,$H$13)),"")"
     WS.Range("L15").Formula = "=IFERROR(IF(INDEX(DATABASE!B:B,$H$13)=0,"",INDEX(DATABASE!B:B,$H$13)),"")"
     WS.Range("L16").Formula = "=IFERROR(IF(INDEX(DATABASE!L:L,$H$13)=0,"",INDEX(DATABASE!L:L,$H$13)),"")"
     WS.Range("L17").Formula = "=IFERROR(IF(INDEX(DATABASE!W:W,$H$13)=0,"",INDEX(DATABASE!W:W,$H$13)),"")"
         
     
End Sub

 

[Domenic]

You'll need to double up on the quotes within the string contained in quotes...

WS.Range("G14").Formula = "=IFERROR(IF(INDEX(DATABASE!R:R,$H$13)=0,"""",INDEX(DATABASE!R:R,$H$13)),"""")"

And the same thing applies to your other formulas.

Hope this helps!

 

[ipbr21054]

Sorted,many thanks.
I knew it wasnt something massive.

Now to continue with the problem i have.

 

[Domenic]

You're very welcome, cheers!

 

[ipbr21054]

Can i quickly ask a question following on from above.

If i add the following i then see FALSE in the cell.
Did i write it correctly ?

WS.Range("M27").Formula = "=IF(AND(H27="",H27=""),"",H27*J27),"")"

 

[Domenic]

Don't forget that quotes within a string need to be doubled up. So I think you want...

WS.Range("M27").Formula = "=IF(AND(H27="""",H27=""""),"""",H27*J27)"

Hope this helps!

 

[ipbr21054]

Thanks i had put 2 but not 3 sets