Заполнить ComboBox данными с другого листа

[umka777_89]

Как заполнить ComboBox (находится не на форме, а на листе), данными из другого листа?

[IgorGO]

определите имя и пользуйтесь...

[umka777_89]

IgorGO, подскажите пожалуйста как это надо сделать?

[IgorGO]

собственно, подсказка была ранее.
это уже решение.

[umka777_89]

IgorGO, спасибо, с этим разобралась.
А можно сделать, чтобы в комбобоксе выбиралось из списка (например, 1,2,3..) , а вставлялось значение из ячейки рядом?(например, в листе2 у нас два столбца, первый - 1,2,3.. а второй - разраз, двадва, тритри...).
и вот выбираем 1, а вставляется "разраз".

[umka777_89]

У меня получилось)
Спасибо

[umka777_89]

Помогите,пожалуйста, как вот такое вот условие реализовать:
в таблице пример,
есть ячейка, в которой (на рисунке это В5) записаны пункты (они должны быть расшифрованы), и вот в наш комбобокс должны входить только строки с названиями из ячейки В5 из столбца А.


наверное, надо как-то проверять:
если значение ячейки В5 содержит значение ячейки из столбца А, то заносим в комбобокс.
не могу додумкать..

[umka777_89]

Наверное что-то не то пишу, ткните носом в ошибку?
Dim i&
Const iRow = 65536: iClm = "A"
sn = Лист2.Name
iRws = Sheets(sn).Range(iClm & iRow).End(xlUp).Row
' ComboBox1.ListFillRange = sn & "!" & iClm & "1:" & iClm & iRws


For i = 1 To iRws
If Cells(100, 2).Value Like Cells(i, 1).Value Then

ComboBox1.AddItem Sheets(sn).Cells(i, 1)
End If
Next i

Ничего не происходит...

[DiemonStar]

Ничего не происходит...

значит условие

If Cells(100, 2).Value Like Cells(i, 1).Value Then

не выполняется или цикл

For i = 1 To iRws

не содержит проходов...

Вдобавок, для ячейки B5 условие должно быть таким:

If [B5] like "*" & Cells(I, 1) & "*" Then

[umka777_89]

DiemonStar

Вдобавок, для ячейки B5 условие должно быть таким:

If [B5] like "*" & Cells(I, 1) & "*" Then

А как сделать чтобы проверялось, если в тексте ячейки В5 есть текст ячейки Cells(I, 1) то делаем ...