# vba Formula Problem

#### Lochnagar

##### New Member
Hi,

I'm wanting to input a formula (and not a value) into the activecell, which adds the first cell to the left and right of the activecell e.g. if my activecell was B1 the formula would be "=A1+C1"

What I'm wondering is, is it possible to generalise the above, that is, if my activecell was E1 the formula that vba would insert would be "=D1+F1" or if it G1 the formula inputed would be "=F1+H1" and so on... ?

...something kinda along these lines

activecell = "=[cell, left of activecell] + [cell, right of activecell]"

Any help or suggestions would be greatly appreciated.

Thanks,
Lochnagar

### Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

#### iliace

##### Well-known Member
"=" & ActiveCell.Offset(0, -1).Address(False, False) & " + " & ActiveCell.Offset(0, 1).Address(False, False)

#### Colin Legg

##### MrExcel MVP, Like totally RAD man
Hi,

I'm wanting to input a formula (and not a value) into the activecell, which adds the first cell to the left and right of the activecell e.g. if my activecell was B1 the formula would be "=A1+C1"

What I'm wondering is, is it possible to generalise the above, that is, if my activecell was E1 the formula that vba would insert would be "=D1+F1" or if it G1 the formula inputed would be "=F1+H1" and so on... ?

...something kinda along these lines

activecell = "=[cell, left of activecell] + [cell, right of activecell]"

Any help or suggestions would be greatly appreciated.

Thanks,
Lochnagar
Something like this, perhaps:
Code:
``````    With ActiveCell
.Formula = "=" & .Offset(0, -1).Address(0, 0) & _
End With``````
Bear in mind the implications if the activecell is in the first or last column of the worksheet....

#### VoG

##### Legend
Perhaps

Code:
``ActiveCell.FormulaR1C1 = "=RC[-1]+RC[+1]"``

#### Lochnagar

##### New Member
Brillliant, they work spot on! Thanks everyone for your help, it's very much appreciated.

Lochnagar

1,102,274
Messages
5,485,783
Members
407,515
Latest member
franjey

### This Week's Hot Topics

• Finding issue in If elseif else with For each Loop
Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
• MsgBox Error
Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
• CELL FORMAT - IF CONDITION
My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
• Show numbers nearly the same
Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...