RE: VBA Consolidate Data

From: Gary''s Student <GarysStudent@xxxxxxxxxxxxxxxxxxxxxxxxx>
Date: Fri, 4 Jan 2008 10:32:02 -0800

Function pack_um(r As Range) As String
pack_um = ""
i = 1
For Each rr In r
If i = 1 Then
pack_um = rr.Value
i = 2
Else
pack_um = pack_um & "," & rr.Value
End If
Next
End Function

--
Gary''s Student - gsnu200763

"jlclyde" wrote:

I am looking for a chunk of code that will take a range of multiple
cells and consolidate it into one cell seperated with commas.
Hopefully someone has this code just laying around.

Thanks
Jay

Follow-Ups:
- Re: VBA Consolidate Data
  - From: jlclyde

References:
- VBA Consolidate Data
  - From: jlclyde

Prev by Date: Re: Delete all rows below certain value on multiple worksheets?
Next by Date: Re: Changing the date in a cell
Previous by thread: RE: VBA Consolidate Data
Next by thread: Re: VBA Consolidate Data
Index(es):
- Date
- Thread