Item keys in collections

[Xmarksthespot]

I have a collection (colA) that has a first item of (It) with a key of (" Ke")
I want to pass this item AND its key to a second collection (colB)
But.... using
colB.Add ColA(1) or colB.Add Col("Ke") only passes the item to the second collection and not its key.
Is there any way I can pass the value and its key to a different collection.

 

[Domenic]

I think you'll need to use a Dictionary object instead...

Sub test()

    Dim oDic1 As Object
    Dim oDic2 As Object
    
    Set oDic1 = CreateObject("Scripting.Dictionary")
    Set oDic2 = CreateObject("Scripting.Dictionary")
    
    oDic1.Add "Key1", "Item1"
    oDic1.Add "Key2", "Item2"
    'etc
    '
    '
    '
    
    oDic2.Add oDic1.keys()(0), oDic1.items()(0)
    
    MsgBox "First key = " & oDic2.keys()(0) & "; First item = " & oDic2.items()(0), vbInformation
    
End Sub

Hope this helps!

 

[pgc01]

I want to pass this item AND its key to a second collection (colB)
But.... using
colB.Add ColA(1) or colB.Add Col("Ke") only passes the item to the second collection and not its key.
Is there any way I can pass the value and its key to a different collection.

Hi
Welcome to the board

You are not passing the key in the examples that you posted.

Try:

ColB.Add ColA("Ke"), "Ke"