adding to a number already in a cell
As an example for Cell B9, paste this in the sheet code for that sheet.
Private Sub Worksheet_Change(ByVal Target As Range) Dim sform As String If Target.Count 1 Then Exit Sub If Target.Address = "$B$9" Then If Target.Value = "" Then Exit Sub Application.EnableEvents = False sVal = Trim(Target.Text) Application.Undo If Not IsNumeric(sVal) Then _ GoTo Errhandler sform = Target.Formula If Left(sform, 1) < "=" Then sform = "=" & sform & "+" & sVal Else sform = sform & "+" & sVal End If Target.Formula = sform End If Errhandler: Application.EnableEvents = True End Sub Now if you enter values in B9, it will do what you describe. Lightly tested, but represents the basic approach. -- Regards, Tom Ogilvy "conrad" wrote in message ... I am working on a basic worksheet. I have several numbers which I have to add additional number to in that cell. I want the cell to reflect the total and the display of the cell contents to list the individual numbers added. |
All times are GMT +1. The time now is 09:43 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com