Transform data from vertical to horizontal

[YasserKhalil]

Hello everyone
I have a code that combines data based on ID and it worked well .. but I need to get the results in another way if possible
Attachment illustrated the issue better than description
Thanks advanced for help

[mancubus]

one way is:

Sub vbax_58813()
    
    Dim i As Long
    Dim arr, e

    arr = Range("A1").CurrentRegion

    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(arr)
            If Not .Exists(arr(i, 1)) Then
                .Item(arr(i, 1)) = arr(i, 2)
            Else
                .Item(arr(i, 1)) = Join(Array(.Item(arr(i, 1)), arr(i, 2)), "~")
            End If
        Next i
        
        i = 1
        For Each e In .Keys
            Cells(i, 7) = e
            Cells(i, 8) = .Item(e)
            i = i + 1
        Next
    End With
    
    Range("G1").CurrentRegion.Columns(2).TextToColumns _
        Destination:=Range("H1"), DataType:=xlDelimited, Other:=True, OtherChar:="~"

End Sub

[snb]

crossposted at: http://www.eileenslounge.com/viewtop...628903f521817a

[YasserKhalil]

Thanks a lot for great help and I am so sorry for not putting the other link. I forgot at all about that as I was in hurry yesterday
Best Regards

[jolivanes]

I am naturally suspicious when someone with quite a few posts says "I forgot"
Just a quick check for your posts:
vbaexpress 322
eileenslounge 644
mrexcel 650
excelforum 4443
and probably a lot in other forums yet.
So after 6000+ posts, you forgot to mention that one should let the helpers know that it was also posted in another forum!


Studying to be a politician maybe?

[YasserKhalil]

Mr. jolivanes I really forgot because the time I posted the threads was late and I was in hurry ... And thanks for your reply

[snb]

You can still restore your omission by adding links in this thread to all places where you asked the same question.

[YasserKhalil]

I think you have already done that Mr. snb
Generally
http://www.eileenslounge.com/viewtop...628903f521817a

I don't know if I have to apologize again and again ...for everyone for something I forgot to do

[mancubus]

when jolivanes pointed your memberships in other forums, snb (and i) thought you opened the same thread in those forums as well. but it seems you have two threads; one here and one in eileen.

[YasserKhalil]

Yes Mr. mancubus
Just in these two forums.. I usually put links if I posted in two forums but this time I really forgot about it as it was late in my country and I had to finish up my work quickly so I posted in both forums without paying attention to put the links
Regards

[apo]

I am with jolivanes in post #5.. where i come from.. that's called bul****!

[YasserKhalil]

Thanks Mr. apo