Scripting Dictionary add additional items

1)

Originally Posted by thisisgerald

            With ThisWorkbook.Sheets("computation")
                For lctr = 2 To 13
                    aCompensation.Add .Cells(2, lctr), .Cells(5, lctr)
                Next
            End With

You can't do it like that.
Value/Text property MUST be explicitly expressed, otherwise Dictionary object treat them as Range Object.

2)

            if aType(1) = "Fruits" then
                  'add items 
            End if

Doesn't make sense.

It looks like working but not.
Everything in key/item should be EMPTY.

Originally Posted by thisisgerald

My problem is I want to add an additional item on the unique key I have made. Basically, there is one item per key and I want it to be two items when certain conditions are met.

Few ways.

1) Utilize Array in item property.
2) Use special character to join the string in item and split when it needs to be used.
3) Set another object to item property.

e.t.c

Not directly, keys must be unique.

You could however have a dictionary of dictionaries/arrays so the item with Key "Fruit" would be a dic/array containing "Apple","Orange"

Only if the item is a datatype capable of holding more than one item

e.g using array:

Sub Test()
Dim arr(0 To 10) As Long
Dim vKeys: vKeys = Array("Fruits", "vegetables", "cats", "dogs")
Dim vKey
Dim dic As Object: Set dic = CreateObject("scripting.dictionary")

For Each vKey In vKeys
    For x = 0 To 10
        arr(x) = x
    Next x
    dic.Add vKey, arr
Next vKey

Debug.Print "Fruits :" & dic("Fruits")(1)
Debug.Print "Fruits :" & dic("Fruits")(2)
Debug.Print "Cats   :" & dic("cats")(3)
Debug.Print "Cats   :" & dic("cats")(4)
Debug.Print "Dogs   :" & dic("dogs")(5)

End Sub

See here.

http://www.excelforum.com/excel-prog...80#post3000680

The code is little bit too complex, but it uses object (dictionary object) to item property.