Change Value in Same Cell

[DigitalArtist]

Is it possible to type a value in a cell, and have Excel automatically run a function and spit the results back in the same cell?

For example, when I type in $400 in B2, I'd like B2 to automatically add on 35% of $400 and change to $540.


DAYS RATE
10 $400


Is this even possible???

Thanks in advance...

~Shirley

[mdbct]

Right click on the tab for the sheet you want the calculation to take place and choose view code. Paste the following:


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("b2"), Target) Is Nothing Then

Application.EnableEvents = False
Range("b2") = Range("b2") * 1.35 'change for different rate increase
Application.EnableEvents = True

End If
End Sub