Or follow the following procedure
1. Open your sheet jis p aap n entry krne ha
2. Sheet k name p right click karain aur View Code p click karain
3. Open hone wale window m ya code paste karain
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dblVal As Double, rngInterest As Range, lngCount As Long
On Error GoTo ExitPoint
Application.EnableEvents = False
Set rngInterest = Intersect(Target, Range("A1:A20"))
lngCount = Application.WorksheetFunction.CountA(rngInterest)
If lngCount Then
dblVal = Val(rngInterest(1).Value)
Application.Undo
If lngCount = 1 Then
rngInterest.Value = dblVal + (dblVal * 0.015)
Else
MsgBox "Multiple Updates Not Permitted", vbCritical, "Computer Says No"
End If
End If
ExitPoint:
Set rngInterest = Nothing
Application.EnableEvents = True
End Sub
4. vb code ki window close kar dain.
5. remeber ya code sirf range A1:A20 p kam kara ga. Aap chahain tu code modify kr k range adjust kar lain.
NOTE 1: agar aap ya chahte haain k kisi bhe cell m entry karain aur wo auto add krta chala jae tu as mention above aap ka excel crash kar jae ga aur its not recomended. aap apne range decide kr lain phr ya code apply krya ga.
2. Macro k program enter krne k leye aur sekhne k leye aap EXCEL help line ko visit krain aur us m faisal Sahib ki posts ko study karain unhon n detail sa macro programming krna btaya ha.
regards,
Bookmarks