Entering numbers in a cel formula
Enter this small macro in worksheet code:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("D1"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value + 1.5
Application.EnableEvents = True
End Sub
Remember: worksheet code, not a module.
--
Gary's Student
"argonaut" wrote:
This is probably a question that has been brought up before, but I am trying
to set up a cel that will contain a formula, BUT, that I can also enter a
number in the cel and it will preform a caculation based on the formula. In
other words, I want to set up D1 to be =D1+1.5, and when I enter 5 into D1,
then 6.5 is what shows. Is this something I can do with a macro or vba? Any
help is appreciated.
|