From a recent posting of mine on a very similar question. Homework?

Sub makelist()
For i = 1 To 33
ms = ""
For Each c In Range("ai2:i5")
If Left(c, 7) = "Report" & i Then ms = ms & "," & c.Offset(, 1)
Next c
MsgBox "Report" & i & " " & Right(ms, Len(ms) - 1)
Cells(i, "k").Value = "Report" & i & " " & Right(ms, Len(ms) - 1)
Next i
End Sub


--
Don Guillett
SalesAid Software

"Johnds" <u34025@uwe wrote in message news:71df170c93b04@uwe...
Hi,

I've got a list of invoice numbers against items purchased. Some invoices
have more than one item (multiple items) purchased as follows:

A B
1 Invoice Number Item Purchased
2 181 ACCESSORY
3 181 COMPUTER
4 181 CAMERA
5 180 ACCESSORY
6 179 CAMERA
7 179 CONSOLE
8 177 COMPUTER
9 176 COMPUTER
10 176 COMPUTER
11 175 CAMERA


I need a lookup type formula in cell B2 to B7 where I get the results as
below:

A B
1 Invoice Number Property Description
2 181 ACCESSORY, COMPUTER, CAMERA
3 180 ACCESSORY
4 179 CAMERA, CONSOLE
5 177 COMPUTER
6 176 COMPUTER, COMPUTER
7 175 CAMERA

Does anybody have any ideas? Any help would be gratefully received.

Thank-you,

John