Dikey satırları yan yana birleştirmek hk

[coztovi]

merhaba,

http://hizliresim.com/WWLEaN

Ekteki resme uygun formul tavsiyeniz nedir,

Aynı koda ait urunlere ait olan numaraları yan yana dizmek istiyoruz,

Saygılar..

 

[bzace]

Merhaba,
Bir Modülün içerisine yazınız.

Function aconcat(a As Variant, Optional sep As String = "") As String

    Dim y As Variant
 
    If TypeOf a Is Range Then
        For Each y In a.Cells
            aconcat = aconcat & y.Value & sep
        Next y
    ElseIf IsArray(a) Then
        For Each y In a
            aconcat = aconcat & y & sep
        Next y
    Else
        aconcat = aconcat & a & sep
    End If
 
    aconcat = Left(aconcat, Len(aconcat) - Len(sep))

End Function

Kullanılışı;

=YERİNEKOY(KIRP(aconcat(EĞER(A2:A9=F2;" "&B2:B9;"")));" ";" / ")
[COLOR="Blue"]Formül dizi formülüdür. CTRL + SHİFT + ENTER ile tamamlayınız.[/COLOR]

Daxe Syán