Assign a few items to one key

Hi Guys,

I have a listbox from Table source where User can choose a few rows.

As a result we can get for example choosen by User:

Unique Ticket Number Number of Company
5000020_2016_1 5000020
5000015_2016_2 5000015
5000020_2016_3 5000020

I want to group this numbers of companies to get "something" in code (this is why this topis is created) where i can simply read the specific value.
I want to have something like this as a result:
key - 5000020, items assigned to it: 5000020_2016_1, 5000020_2016_3
key - 5000015, items assigned to it: 5000015_2016_2

Problem is to find the mutiple values and assigned them to key. If this was the Dictionary that it would be easy for one item assigned to unique key.
We can assign easy 5000020 for 5000020_2016_1 and 5000015 for 5000015_2016_2.

But what if we have a few items?

Thank You in advance for your help,
Warm Regards,
Jacek Antek

Originally Posted by xlnitwit

Hi,

You may assign an array or another Dictionary to a Dictionary item. In this case one might simply use a delimited string that can be split into an array when required.

Thank you for your answer - i will test it surely.

But i read also that for this purposes Class modules can be used, maybe somebody does it in his/her code ?

Jacek

It wouldn't really make sense to use a class module for that, an array is better suited. You'd use a class where each value has a distinct name (property) and there are known given number of them.

It wouldn't really make sense to use a class module for that, an array is better suited. You'd use a class where each value has a distinct name (property) and there are known given number of them.

Tahnk you Kyle123 for your answer.

Could you please give me a short example what you mean about:

You'd use a class where each value has a distinct name (property)

You are talking about Company numbers ? They should be distinct to use a class?

Jacek

Ok,

I have almost done it (I am master !

My code :

Sub test()

Dim i As Integer
Dim coutner As Integer
Dim Slowniczek As Dictionary
Dim sh As Variant
Dim y As Integer
Dim test As String
Dim test2 As String
Dim Kolekcja As New Collection
Dim lenght As Long
Dim VarCompanyNum As String
Dim del As String
Dim ArrayRange As Variant

Set Slowniczek = CreateObject("Scripting.Dictionary")

With ActiveSheet

del = "; "

Dim vitems, vkeys

For i = 1 To 3
vitems = Slowniczek.Items
vkeys = Slowniczek.Keys
If Not Slowniczek.Exists(ArrayRange(i, 2)) Then
Slowniczek.Add ArrayRange(i, 2), ArrayRange(i, 1)
Else
Slowniczek.Item(ArrayRange(i, 2)) = Slowniczek.Item(ArrayRange(i, 2)) + del + (ArrayRange(i, 1))
End If
Next i

End With

vitems = Slowniczek.Items
vkeys = Slowniczek.Keys

End Sub

Problem was solved by adding string to string, so in the result there will be:
key - 5000020, items assigned to it: 5000020_2016_1, 5000020_2016_3
key - 5000015, items assigned to it: 5000015_2016_2


only i thing i have to do:

1. Convert values from multicolumn listbox to 2 dimensional array as string. Any ideas ?