Dictionary

[bank_notes]

Доброго Всем Здоровья!

Вопрос: Есть ли возможность и если да как, вносить items, один за другим в Dictionary посредством CommandButton_Click выбирая их в combobox.

И следующий вопрос можно ли после этого производить действия с этим словарем? Имеется в виду в следующем коде.

Если что, прошу разъяснить возможно самым простым языком, поскольку не специалист использую VBA для практических надобностей.

[Dophin]

ничего не понятно. приложите файл с тем что есть и что хотите на выходе увидеть

[bank_notes]

Public Sub CommandButton3_Click()
Dim iOrder As Scripting.Dictionary
Set iOrder = New Dictionary
Dim TheName As String
TheName = UserForm3.ComboBox1.Value
If TheName <> "" Then
iOrder.Add TheName, 1
End If
End Sub

Вот код. Проблема в том, что этот он дает только одно добавление. Хотелось бы нажатием кнопки добавлять в коллекцию, то бишь в словарь, одно за другим, выбирая из комбобокса столько значений, сколько нужно.

Второй вопрос был Можно ли производить действия с iOrder после End Sub. Т.е. создал
Dictionary, внес внего список значений а следующим кодом произвожу с со "словарем" необходимые действия.

[doober]

Вынести в модуль

 Public  iOrder As Scripting.Dictionary

Один раз создать

Private Sub CommandButton1_Click()
Set iOrder = New Dictionary
End Sub

И беспощадно эксплуатировать по своему усмотрению,он будет доступен везде

Public Sub CommandButton3_Click()
Dim TheName As String
TheName = UserForm3.ComboBox1.Value
If TheName <> "" Then
iOrder.Add TheName, 1
End If
End Sub

А Вы каждый раз создаете,и делаете одну запись