Thanks Bernard your response was very helpful. Now I've got another question.
If I want the the amount added to vary based upon the value that I input, is
that possible?
i.e. less
4 or less add .25
4 to 6 add .50
6 to 9 add .75
"Bernard Liengme" wrote:
This is a modification of one of Bernie Deitrick's replies earlier this week
Copy the code below, right-click the sheet tab, select "View Code" and paste
the code into the
window that appears.
Change the
Set rngPCode = Range("D:D")
to the column where the numbers will be entered.
This could be just a single cell as: Set rngPCode = Range("A2")
or a range as in: Set rngPCode = Range("B1:B10")
Also change: MyValue = 3.142 to reflect the value you want to add
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngPCode As Range
Dim MyValue As Double
MyValue = 3.142
Set rngPCode = Range("D:D")
If Intersect(rngPCode, Target) Is Nothing Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
On Error GoTo Reset
Application.EnableEvents = False
Target.Value = Target.Value + MyValue
Reset:
Application.EnableEvents = True
End Sub
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email
"chuck" wrote in message
...
I want to enter a value in a cell and have it automatically add a
predetermined value to it. I'm using excell 2003