Code for cell to left + cell above

Hello!

I'm new to the "advanced" coding in excel, so I'm hoping you all may be able to help:


I am wondering if there is a code to enter so as to get the input of the cell to the left, plus the cell above, but without having to specifically enter each cell's title (so I can easily copy and past the code into various cells a lot faster than manually adding or entering the specific titles. )

Example for Cell A5: Code input to get Cell A5=B5+A4.

your request:

a code to enter so as to get the input of the cell to the left, plus the cell above

and your example:

Cell A5=B5+A4

are not the same. Your example is adding the cell to the right and the cell above.

as per your request, try this:

Sub Add()
If ActiveCell.Column = 1 Then Exit Sub                 'there is no cell to the left
If ActiveCell.Row = 1 Then Exit Sub                      'there is no cell above
ActiveCell.Value = ActiveCell.Offset(-1, 0) + ActiveCell.Offset(0, -1)
End Sub

HTH!

Hi there,

This situation is just crying out for a Defined Name Formula

I'll assume that you want to implement the formula:

A5: Code input to get Cell A5=B5+A4

Proceed as follows:

Select Cell A5

Select Formulas >> Define Name from the Ribbon

In the New Name DialogBox:

enter frmRunningTotal in the Name box
select the name of the current worksheet from the dropdown list in the Scope combobox
enter =B5 + A4 in the Refers to box (note that these references are RELATIVE, and should NOT be entered as e.g. $B$5)
click on OK
click on Close

Now enter "=frmRunningTotal" (without quotes) in Cell A5, and the sum of Cells B5 and A4 will be displayed.

What's so special about the above approach? It's that now you can enter =frmRunningTotal in ANY cell on the worksheet, and the result displayed will be the sum of the cell above and the cell on the right of the cell in which the formula has been entered.


Hope this helps - please let me know how you get on.

Regards,

Greg M