Summation of the Cells

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

a_k93 - 23 Mar 2006 16:35 GMT

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

Reply to this Message

Jim Thomlinson - 23 Mar 2006 17:06 GMT

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

Signature

HTH...

Jim Thomlinson

> Hi there,
>
[quoted text clipped - 16 lines]
> thanx in advance,
> a_k93

Reply to this Message