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.


--
lagiant
------------------------------------------------------------------------
lagiant's Profile: http://www.excelforum.com/member.php...o&userid=34251
View this thread: http://www.excelforum.com/showthread...hreadid=540045

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

HTH

"lagiant" wrote
in message :

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.


--
lagiant
------------------------------------------------------------------------
lagiant's Profile: http://www.excelforum.com/member.php...o&userid=34251
View this thread: http://www.excelforum.com/showthread...hreadid=540045

U¿ytkownik "lagiant"
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.


--
lagiant
------------------------------------------------------------------------
lagiant's Profile:
http://www.excelforum.com/member.php...o&userid=34251
View this thread: http://www.excelforum.com/showthread...hreadid=540045


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