Self Calculation

  • Thread starter Thread starter Satya
  • Start date Start date
S

Satya

Is it possible to set a format to a cell so that if I enter a value it
returns with adding 15% to it. For example if in A1 I enter 100 it should
return 115 in cell A1. My gut feeling as a novice is it is not possible,
nevertheless wanna check with the wizards on line
 
Try the sheet sub below from Don Guilett (slightly adapted)

To install:
Right click on the sheet tab > View code
Copy n paste the sub into the code window (whitespace on right)
Press Alt+Q to get back to Excel. Test it out on that sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
'Don Guillett, adapted
If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target) Then Target = Target * 1.15
Application.EnableEvents = True
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
Downloads:22,500 Files:370 Subscribers:66
xdemechanik
 
Back
Top