Adding Value to a cell which contain formula

Hi All,

i am need to get this query done.

my query is, i have formula in cell as

=IF($AT3>=300000,$BS3*60%,IF($AT3<=250000,$BS3*40%,$BS3*50%))

and i want to add value to that formula using VBA code like

=IF($AT3>=300000,$BS3*60%,IF($AT3<=250000,$BS3*40%,$BS3*50%)) + 500 + 600

and i try using below code , however its not getting done its showing error Type Mismatch.

Sht.Range("BT" & i).Formula + 500 + 600

can anyone please help me out with this.

thank you !

While I look at it please edit code tags:


Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Here, try this:

Sht.Range("BT" & i).Formula = Sht.Range("BT" & i).Formula & "+ 500 + 600"

Hi Sir,

sorry ! due to hurry i forget to add Code Tags,

About query: its got resolved , just need to add below red highlighted line.

Sht.Range("BT" & i).Formula & "+" & Sht.Cells(i, y).Value