View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
marksuza[_6_] marksuza[_6_] is offline
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