Filtering in one row

[qannas]

Hello,

i need help in this please

name <tbody> </tbody>	type <tbody> </tbody>
Jack <tbody> </tbody>	iphone <tbody> </tbody>
Jack <tbody> </tbody>	android <tbody> </tbody>
John <tbody> </tbody>	iphone <tbody> </tbody>
John <tbody> </tbody>	android <tbody> </tbody>
Mousa <tbody> </tbody>	iphone <tbody> </tbody>
Mousa <tbody> </tbody>	android <tbody> </tbody>
Jeff <tbody> </tbody>	android <tbody> </tbody>
Hany <tbody> </tbody>	iphone <tbody> </tbody>

<tbody>
</tbody>

I need to show the outcome like this:

Jack <tbody> </tbody>	Iphone, android <tbody> </tbody>
Jeff <tbody> </tbody>	android <tbody> </tbody>
Hany <tbody> </tbody>	iphone <tbody> </tbody>

<tbody>
</tbody>

Thanks.

 

[qannas]

No feedback!

 

[JoeMo]

Sub quannas()
'assumes starting data begin with a header in A1
' recast data start in D1
Dim Vin As Variant, S As String, c As Range, i As Long
Application.ScreenUpdating = False
Columns("D:E").ClearContents
Range("E1").Value = Range("B1").Value
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).AdvancedFilter xlFilterCopy, , Range("D1"), True
Vin = Range("A2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Value
For Each c In Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    For i = LBound(Vin, 1) To UBound(Vin, 1)
        If Vin(i, 1) = c.Value Then
            S = S & ", " & Vin(i, 2)
        End If
    Next i
    c.Offset(0, 1).Value = Mid(S, 3)
    S = ""
Next c
Columns("D:E").AutoFit
Application.ScreenUpdating = True
End Sub

 

[qannas]

Thanks Joe, it works!

 

[JoeMo]

Thanks Joe, it works!

You are welcome - thanks for the reply.