Append to a cell
put this code into a sub and link your Add button to it
dim cell as range
dim text as string
text = range("A1").Value
for each cell in selection.cells
text = text & "," & cell.value
next
range("A1")=text
"diacci1st" wrote in message
...
Hi
I have a lst of values and a " add " button, I would like for the user to
be
able to make selections and to have the results appended to a single cell
so
eg:
So if I select Value 1 then click "Add" then Value 3 than "add" lets say
cell "a1" will have in it Value 1 and Value 3 as results... how can I do
that?
|