LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default circular reference code


Hi everyone,
I have a code which allows for circular reference, I input a value i
column A and that value is added to column B. Ex. If input 100 in A,
will become 100, if I input 100 again in A, B will become 200.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim temp As Range

Set temp = Intersect(Target, Range("M4:M24"))
If temp Is Nothing Then
Else
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If

End Sub

However, I need this to take place within the same cell, if A=100 and
input 100 in A, A will become 200. If I substitute Target.Offset (0, 1
to (0, 0) the program iterates many times. Can anybody help me solv
that problem? Thank you.

Marco

--
marksuz
-----------------------------------------------------------------------
marksuza's Profile: http://www.excelforum.com/member.php...nfo&userid=265
View this thread: http://www.excelforum.com/showthread.php?threadid=31498

 
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
Circular reference help Alexey[_3_] Excel Discussion (Misc queries) 3 September 19th 08 03:26 PM
circular reference circular reference Excel Worksheet Functions 2 August 9th 08 10:05 PM
circular reference dusty Excel Discussion (Misc queries) 1 November 15th 07 06:56 PM
Circular Reference build Excel Worksheet Functions 1 October 19th 07 01:08 PM
Circular Reference MahaRaj® Excel Programming 3 October 19th 04 11:32 PM


All times are GMT +1. The time now is 09:49 AM.

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"