Entering numbers in a cel formula

[lagiant]

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.

 

[JimMay]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Target.Value + 1.5
Application.EnableEvents = True
End Sub

HTH

 

[Gazeta]

U¿ytkownik "lagiant" <[email protected]>
napisa³ w wiadomoœci

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.

copy this sub into worksheet module
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Then
Target.Value = Target.Value + 1.5
End If
End Sub
mcg