Summation of the Cells
 

Hi there,

I want to sum up the value of the cell A1, A2, A3 and A4 in cell C1
this is done,
by the following
In the Worksheet_change Event
c1.value = application.worksheetfunction.sum(a1,a2,a3,a4)

User is allowed to enter value in c1 cell directly. If user enter
value in C1 cell directly, at

that time I want the Cell A1, A2, A3 and A4 should become 0.
Again if the user enters in any of the cells (a1, a2, a3, a4) then c
value should get

overwritten by the summation of the 4 cells.

your help is appreciated
thanx in advance,
a_k9

--
a_k9
-----------------------------------------------------------------------
a_k93's Profile: http://www.excelforum.com/member.php...fo&userid=3267
View this thread: http://www.excelforum.com/showthread.php?threadid=52571

Summation of the Cells
 

In the sheet itself place this code (Right click the sheet tab and select
view code)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Not (Intersect(Target, Range("A1:A4")) Is Nothing) Then
Range("C1").Value = Application.Sum(Range("A1:A4"))
ElseIf Target.Address = "$C$1" Then
Range("A1:A4").Value = 0
End If
ErrorHandler:
Application.EnableEvents = True
End Sub

--
HTH...

Jim Thomlinson


"a_k93" wrote:


Hi there,

I want to sum up the value of the cell A1, A2, A3 and A4 in cell C1.
this is done,
by the following
In the Worksheet_change Event
c1.value = application.worksheetfunction.sum(a1,a2,a3,a4)

User is allowed to enter value in c1 cell directly. If user enters
value in C1 cell directly, at

that time I want the Cell A1, A2, A3 and A4 should become 0.
Again if the user enters in any of the cells (a1, a2, a3, a4) then c1
value should get

overwritten by the summation of the 4 cells.

your help is appreciated
thanx in advance,
a_k93


--
a_k93
------------------------------------------------------------------------
a_k93's Profile: http://www.excelforum.com/member.php...o&userid=32679
View this thread: http://www.excelforum.com/showthread...hreadid=525711