--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
It might be best to send a file to the address below along with snippets
of these messages.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MarkP" wrote in message
...
My apologies, Don, for not being more explicit in my request. I
appreciate
the help. This window is not the best medium for my desired output, so
let
me say I would like the following:

User-ID (mpalmer), User Name (Mark Palmer), Device 1 name (mpalmer text),
Device 1 type (SMS Cellphone), Device 1 Info(5551234567), Device 2 name,
Device 2 type, Device 2 info. etc. as a single row.

A possible obstacle may be that not every user has the same number of
devices, so the number of columns needed would vary.

mpalmer Mark Palmer mpalmer text SMS Cellphone 5551234567 mpalmer cell
Phone Number 5551234567 office Phone Phone Number 5551234567 Text
Messages
Pager SMS Pager 5551234567 Home Phone Phone Number 5551234567

"Don Guillett" wrote:

Andddddd, you want it to look like__________?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MarkP" wrote in message
...
Don:

A sample of the file output:

mpalmer Mark Palmer mpalmer text SMS Cellphone 5551234567
mpalmer Mark Palmer mpalmer cell Phone Number 5551234567
mpalmer Mark Palmer Office Phone Phone Number 5551234567
mpalmer Mark Palmer Text Messages SMS Cellphone 5551234567
mpalmer Mark Palmer Pager SMS Pager
5551234567
mpalmer Mark Palmer Home Phone Phone Number 5551234567





"Don Guillett" wrote:

How about posting a sample layout. Here is one I did a couple of days
ago
where names in col a and data in col c. Put unique names in col D and
string
in col E and sum in col F

Sub getscroresinonecell()
'get unique names for list
lr = Cells(Rows.Count, "a").End(xlUp).Row
Range(Cells(1, "d"), Cells(lr, "e")).ClearContents
Range("A1:A" & lr).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("D1"), Unique:=True
'find scores for each
dlr = Cells(Rows.Count, "d").End(xlUp).Row
For Each x In Range("d2:d" & dlr)
ms = ""
mss = 0
With Range("a1:a" & lr)
Set c = .Find(x)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ms = ms & "," & c.Offset(, 2)
mss = mss + c.Offset(, 2)

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With
Cells(x.Row, 5) = Right(ms, Len(ms) - 1)
Cells(x.Row, 6) = mss
Next
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MarkP" wrote in message
...
I have an app. that can be used to generate an output file
containing
user
data. It is a five column file, with the first two columns
containing
identical data for each user; specifically user-id and user name.
The
remaining three columns contain unique data. For each occurrence
of
unique
data for a particular user, a new row is generated.

Is there a way to combine the multiple rows for a user into one
row?