How to Combine Cells into a Single String with Commas

[gall3on]

I have a column of number values in Excel that grows over time.

Example:
Web IDs
1243
34565
2334
2357

Because of some reporting restrictions with another software, I have to constantly copy each cell value to a reporting field, with each value separated by a comma.

Example:

Enter IDs to find:
1243,34565,2334,2357

I know I can use the fuction =TEXT(Cell1 & "," & Cell2 & "," etc) to create a string which combines those values together into a single different cell to show all the values.

Here's my problem. Is there a way to code in VBA where I can keep appending the =Text function to keep adding my Web IDs as I create more so I can have them in a comma separated single cell format?

I hope this wasn't too confusing.

 

[SkipVought]

Hi,

Function RangeString(rng as range)
  dim r as range
  for each r in rng
    RangeString = RangeString & r.value & ","
  next
  RangeString = left(RangeString, len(RangeString)-1)
end function

Paste in a MODULE.

Use this User Defined Function, as you would, any spreadsheet function.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]