Adding up in Excel.

**TMS** · 03-26-2011, 10:18 AM

For *any* cell in column B

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(2)) Is Nothing Then Exit Sub

        Application.EnableEvents = False
        Range("A"&Target.Row) = Range("A"&Target.Row) + Range("B"&Target.Row)
        Range("B"&Target.Row) = ""
        Application.EnableEvents = True

End Sub

Regards

**rachelherner** · 08-21-2013, 11:25 AM

Hello TMShucks! Could you tell me how to do this a cross a whole sheet? For instance:

Column C will be the data entry column, Column D will be the totaling column
Column E will be the data entry column, Column F will be the totaling column
Column G will be the data entry column, Column H will be the totaling column

It will do this every other pattern all the way through column GT being a totaling column. Column A has names and column B has the code for what type of hours I have to enter. Please help, I can send you the sheet if needed.

**heshopesho** · 12-16-2021, 01:55 PM

Originally Posted by rachelherner

Hello TMShucks! Could you tell me how to do this a cross a whole sheet? For instance:

Column C will be the data entry column, Column D will be the totaling column
Column E will be the data entry column, Column F will be the totaling column
Column G will be the data entry column, Column H will be the totaling column

It will do this every other pattern all the way through column GT being a totaling column. Column A has names and column B has the code for what type of hours I have to enter. Please help, I can send you the sheet if needed.

Hello,

Was anyone able to figure out how to do exactly this? Thank you!