Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Append Selected Cell in another Cell's Formula


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
------------------------------------------------------------------------
craigjl's Profile: http://www.excelforum.com/member.php...o&userid=33247
View this thread: http://www.excelforum.com/showthread...hreadid=530719

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Append Selected Cell in another Cell's Formula


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.


--
craigjl
------------------------------------------------------------------------
craigjl's Profile: http://www.excelforum.com/member.php...o&userid=33247
View this thread: http://www.excelforum.com/showthread...hreadid=530719

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 246
Default Append Selected Cell in another Cell's Formula

Craigjl, How about

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

Greg

  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Append Selected Cell in another Cell's Formula


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


--
craigjl
------------------------------------------------------------------------
craigjl's Profile: http://www.excelforum.com/member.php...o&userid=33247
View this thread: http://www.excelforum.com/showthread...hreadid=530719

  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 246
Default Append Selected Cell in another Cell's Formula

Craig, glad you got it working and happy to help

Greg



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Formula to populate data in a cell based on another cell's color Cassie Excel Discussion (Misc queries) 1 February 6th 09 04:12 PM
How do I test a cell's formula (ex: Is this cell and Avg or a sum? Karie Excel Worksheet Functions 1 December 26th 08 09:54 PM
How do I enter a formula in a cell that changes per another cell's Bev Greene Excel Worksheet Functions 5 November 10th 06 03:48 PM
Returning a cell's formula in a different cell T.R. Young Excel Worksheet Functions 2 February 16th 06 06:41 PM
one cell's value Highlights selected cells....how? [email protected] Excel Discussion (Misc queries) 2 February 15th 06 09:39 AM


All times are GMT +1. The time now is 12:23 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"