Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding to a number already in a cell
Conrad -- something like this ...
Sub AddMore() With Worksheets("MySheet").Range("A1") .Value = .Value + 1 End With End Sub -- Hope it Helps, - Rodney POWELL Microsoft MVP - Excel Beyond Technology Spring, Texas USA www.BeyondTechnology.com "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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding to a number already in a cell
Hi Rodney
won't this change the value stored in cell A1 rather than "the display of the cell contents to list the individual numbers added" ? Cheers JulieD "Rodney POWELL" wrote in message ... Conrad -- something like this ... Sub AddMore() With Worksheets("MySheet").Range("A1") .Value = .Value + 1 End With End Sub -- Hope it Helps, - Rodney POWELL Microsoft MVP - Excel Beyond Technology Spring, Texas USA www.BeyondTechnology.com "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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding to a number already in a cell
Hi Rodney,
I think you missed: display of the cell contents to list the individual numbers added. Perhaps, change: .Value = .Value + 1 to: .Formula = "=" & .Formula & "+1" --- Regards, Norman "Rodney POWELL" wrote in message ... Conrad -- something like this ... Sub AddMore() With Worksheets("MySheet").Range("A1") .Value = .Value + 1 End With End Sub -- Hope it Helps, - Rodney POWELL Microsoft MVP - Excel Beyond Technology Spring, Texas USA www.BeyondTechnology.com "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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Follow-Up: adding to a number already in a cell
Maybe I misunderstood the question --
Sub AddMore() Dim EqualSign$ Dim varNumberToAdd As Variant varNumberToAdd = 3 With Worksheets("MySheet").Range("A1") If Left$(.Formula, 1) < "=" Then EqualSign$ = "=" .Formula = EqualSign$ & .Formula & "+" & varNumberToAdd End With End Sub Hopefully this is closer to what you were seeking, - Rodney POWELL Microsoft MVP - Excel Beyond Technology Spring, Texas USA www.BeyondTechnology.com "JulieD" wrote in message ... Hi Rodney won't this change the value stored in cell A1 rather than "the display of the cell contents to list the individual numbers added" ? Cheers JulieD "Rodney POWELL" wrote in message ... Conrad -- something like this ... Sub AddMore() With Worksheets("MySheet").Range("A1") .Value = .Value + 1 End With End Sub -- Hope it Helps, - Rodney POWELL Microsoft MVP - Excel Beyond Technology Spring, Texas USA www.BeyondTechnology.com "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. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding to a number already in a cell
Oops!
.Formula = "=" & .Formula & "+1" Should be: .Formula = .Formula & "+1" --- Regards, Norman "Norman Jones" wrote in message ... Hi Rodney, I think you missed: display of the cell contents to list the individual numbers added. Perhaps, change: .Value = .Value + 1 to: .Formula = "=" & .Formula & "+1" --- Regards, Norman "Rodney POWELL" wrote in message ... Conrad -- something like this ... Sub AddMore() With Worksheets("MySheet").Range("A1") .Value = .Value + 1 End With End Sub -- Hope it Helps, - Rodney POWELL Microsoft MVP - Excel Beyond Technology Spring, Texas USA www.BeyondTechnology.com "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. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding to a number already in a cell
Correction!
Sub AddMore() With ActiveSheet.Range("A1") If .HasFormula Then .Formula = .Formula & "+1" Else .Formula = "=" & .Formula & "+1" End If End With End Sub --- Regards, Norman "Norman Jones" wrote in message ... Oops! .Formula = "=" & .Formula & "+1" Should be: .Formula = .Formula & "+1" --- Regards, Norman "Norman Jones" wrote in message ... Hi Rodney, I think you missed: display of the cell contents to list the individual numbers added. Perhaps, change: .Value = .Value + 1 to: .Formula = "=" & .Formula & "+1" --- Regards, Norman "Rodney POWELL" wrote in message ... Conrad -- something like this ... Sub AddMore() With Worksheets("MySheet").Range("A1") .Value = .Value + 1 End With End Sub -- Hope it Helps, - Rodney POWELL Microsoft MVP - Excel Beyond Technology Spring, Texas USA www.BeyondTechnology.com "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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding number within a cell | Excel Worksheet Functions | |||
Adding a number to a cell that already has a number. | Excel Discussion (Misc queries) | |||
macro adding a number to a number already in a cell | Excel Programming | |||
macro adding a number to a number already in a cell | Excel Programming | |||
macro adding a number to a number already in a cell | Excel Programming |