M
mytibt
Good Morning,
I'm new to the board and look forward to exchanging ideas with all of
you. I found the following script off of a Microsoft tutorial for
creating a running total on Excel. My problem with it, is asked after
the script, below. Thanks in advance for reading:
Code:
--------------------
' The Autpen name forces this macro to run every time
' the workbook containing this macro is opened.
Sub Autpen()
' Every time a cell's value is changed,
' the RunningTotal macro runs.
Application.OnEntry = "RunningTotal"
End Sub
'----------------------------------------------------------
' This macro runs each time the value of a cell changes.
' It adds the current value of the cell to the value of the
' cell comment. Then it stores the new total in the cell comment.
Sub RunningTotal()
On Error GoTo errorhandler ' Skip cells that have no comment.
With Application.Caller
' Checks to see if the cell is a running total by
' checking to see if the first 4 characters of the cell
' comment are "RT= ". NOTE: there is a space after the equal
' sign.
If Left(.Comment.Text, 4) = "RT= " Then
' Change the cell's value to the new value in the cell
' plus the old total stored in the cell comment.
RT = .Value + Right(.Comment.Text, Len(.Comment.Text) - 4)
.Value = RT
' Store the new total in the cell note.
.Comment.Text Text:="RT= " & RT
End If
End With
Exit Sub ' Skip over the errorhandler routine.
errorhandler: ' End the procedure if no comment in the cell.
Exit Sub
End Sub
'--------------------------------------------------------------
' This macro sets up a cell to be a running total cell.
Sub SetComment()
With ActiveCell
' Set comment to indicate that a running total is present.
' If the ActiveCell is empty, multiplying by 1 will
' return a 0.
.AddComment
.Comment.Text Text:="RT= " & (ActiveCell * 1)
End With
End Sub
--------------------
This code allows me to add to the running total by entering the
numerical value in the cell containing the comment. However, say I have
Cell A1 and B1 involved. I want to modify the script in a way that I can
enter the value in A1, and have B1 keeping a cumulative running total.
Cell A1 is labeled as "currentweek" and cell B1 is labeled as
"weektodate" Any help is appreciated and thank you again.
Robert
I'm new to the board and look forward to exchanging ideas with all of
you. I found the following script off of a Microsoft tutorial for
creating a running total on Excel. My problem with it, is asked after
the script, below. Thanks in advance for reading:
Code:
--------------------
' The Autpen name forces this macro to run every time
' the workbook containing this macro is opened.
Sub Autpen()
' Every time a cell's value is changed,
' the RunningTotal macro runs.
Application.OnEntry = "RunningTotal"
End Sub
'----------------------------------------------------------
' This macro runs each time the value of a cell changes.
' It adds the current value of the cell to the value of the
' cell comment. Then it stores the new total in the cell comment.
Sub RunningTotal()
On Error GoTo errorhandler ' Skip cells that have no comment.
With Application.Caller
' Checks to see if the cell is a running total by
' checking to see if the first 4 characters of the cell
' comment are "RT= ". NOTE: there is a space after the equal
' sign.
If Left(.Comment.Text, 4) = "RT= " Then
' Change the cell's value to the new value in the cell
' plus the old total stored in the cell comment.
RT = .Value + Right(.Comment.Text, Len(.Comment.Text) - 4)
.Value = RT
' Store the new total in the cell note.
.Comment.Text Text:="RT= " & RT
End If
End With
Exit Sub ' Skip over the errorhandler routine.
errorhandler: ' End the procedure if no comment in the cell.
Exit Sub
End Sub
'--------------------------------------------------------------
' This macro sets up a cell to be a running total cell.
Sub SetComment()
With ActiveCell
' Set comment to indicate that a running total is present.
' If the ActiveCell is empty, multiplying by 1 will
' return a 0.
.AddComment
.Comment.Text Text:="RT= " & (ActiveCell * 1)
End With
End Sub
--------------------
This code allows me to add to the running total by entering the
numerical value in the cell containing the comment. However, say I have
Cell A1 and B1 involved. I want to modify the script in a way that I can
enter the value in A1, and have B1 keeping a cumulative running total.
Cell A1 is labeled as "currentweek" and cell B1 is labeled as
"weektodate" Any help is appreciated and thank you again.
Robert