Home/ Questions/Q 6800229
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-26T18:56:38+00:00

I want to insert these formula using vba but it throws me an error

  • 0

I want to insert these formula using vba but it throws me an error application defined error

activesheet.range("A4").formula = "=IF(AND($B4>TODAY() -7,$B4 < TODAY()),"ONE WEEK OLD",IF(AND($B4 < TODAY() -7,$B4 > TODAY() - 30),"ONE WEEK TO ONE MONTH OLD",IF(AND($B4 < TODAY()-30,$B4 > TODAY()-90),"1 MONTH TO 90 DAYS OLD","OLDER THAN 90 DAYS")))"

I have used concatenation and also using a string variables but still Im unable to do it.

I am unable to insert a formula in a cell if formula has double quotes in it from vba

Please help me with these Thanks

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    You need to escape the quotes in the string. To do this just double them up:

    activesheet.range("A4").formula = "=IF(AND($B4>TODAY() -7,$B4 < TODAY()),""ONE WEEK OLD"",IF(AND($B4 < TODAY() -7,$B4 > TODAY() - 30),""ONE WEEK TO ONE MONTH OLD"",IF(AND($B4 < TODAY()-30,$B4 > TODAY()-90),""1 MONTH TO 90 DAYS OLD"",""OLDER THAN 90 DAYS"")))"

    If this doesn’t help you’ll need to post more of the code.

    • 0