Adding up in Excel.

**Richard Buttrey** · 03-26-2011, 07:34 AM

Hello Lukas,

You can't do this with a formula, but you can do it with a macro. Specifically the Sheet Change event. i.e.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        Range("A1") = Range("A1") + Range("B1")
        Application.EnableEvents = False
        Range("B1") = ""
        Application.EnableEvents = True
    End If
End Sub

Regards

**loekie** · 03-26-2011, 09:31 AM

I don't know if I am doing something stupid, but I can't get the macro to run. It looks like something is missing. As soon as I run the macro I get a "Runtime 424' error. Object required" This is what I got in the macro.

Sub Worksheet_Change()
If Not Intersect(Target, Range("B1")) Is Nothing Then
        Range("A1") = Range("A1") + Range("B1")
                Application.EnableEvents = False
        Range("B1") = ""
        Application.EnableEvents = True
    End If
End Sub

Adding up in Excel.

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Re: Adding up in Excel.

Re: Adding up in Excel.

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions