Append Selected Cell in another Cell's Formula

[craigjl]

Basically, I want to do the following inside a macro. The macro should
work on any selected cell, and can be used in many different
locations.

If I select C1 for example and run macro, I want the following change
made in D10:

Original D10: =F4+B5
New D10: =F4+B5+C1

I've figured out the following line of code to start with:

Range("D10").Formula = Range("D10").Formula + Selection.Cells(Row,
Column)

But it doesn't give me what I want.

 

[craigjl]

Ok. I managed to solve part of the problem. The line:

Range("D10").Formula = Range("D10").Formula + Selection.Cells(Row,
Column)

Should use the concantenate sign "&" rather than "+":

Range("D10").Formula = Range("D10").Formula & "+" &
Selection.Cells(Row, Column)

Now I just need to get the cell referance rather than the value.

 

[GregR]

Craigjl, How about

Range("D10").Formula = Range("D10").Formula & "+" &
Selection.Cells(Row, Column).Address

Greg

 

[craigjl]

GregR,

Thanks for the code. The .Address was the part I was missing.
However, I found that the line you provided actually gave me the
address of the cell 1 cell up and 1 cell left of the selected one. The
following line works as expected:

Range("O43").Formula = Range("O43").Formula & "+" & Selection.Cells(1,
1).Address

 

[GregR]

Craig, glad you got it working and happy to help

Greg