Подскажите как передать данные в поле со списком.
Ситуация:
Есть лист1 с данными.
лист 2 с ComboBox1
Задача - передать данные от значения Лист1.ххх до Лист1.ХХХ-енд в ComboBox1 на Лист2
Пытался сделать сл кодом - ругаеться на строку 7 = (Mehtod 'Range' of object '_Worksheet' failed)

========= КОД ===========================
1)Dim ws As Worksheet

2)Set ws = Worksheets("Всё для ПК")

3)' границы диаппазонов
4)ххх = ws.Cells.Find(What:="МАТЕРИНСКИЕ ПЛАТЫ").Row
5)ХХХ_end = ws.Cells.Find(What:="ПРОЦЕССОРЫ", After:=Cells(ххх, 1)).Row

6)' формирование диапазонов
7)MB = ws.Range(Cells(ххх, 2), Cells(ХХХ_end, 8)).value

8)ComboBox1.List = Application.MB.Value

=========================================

не могу понять в чём ошибка.

Deggasad


Объявлять переменные нужно тогда меньше путаницы

Ну есть такое - но в данном случае без разницы.
Здесь ошибка во второй части - именно в выборе диапазона.

Если написать ТАК :
MB = ws.Range("А2:Н12").value
всё работает.

Но меня интересует не постоянный диапазон - а динамический....

Deggasad

ничего не понял... Что значит без разницы - бред...

Ответ я тебе уже написал - это факт!

Если у тебя до 7-й строки где то ошибка это можно выяснить только если выложишь файл!!

З.ы.:
Вдумайся в свой пример
7)MB = ws.Range(Cells(ххх, 2), Cells(ХХХ_end, 8)).value
8)ComboBox1.List = Application.MB.Value

ну уж извени - может и бред но говорю как есть - да и не супер профи Я...

1) выложен именно весь код... и ошибка вываливаеться именно там - до этого там просто неоткуда взяться ошибке....
2) проверенно что =Set= в данном примере не спасает.
3) проверенно если ставиш адрессацию Range("А2:Н12") - работает нормально, а вот если написать Range(Cells(2, 2), Cells(10, 8)) = результат - ошибка....

Вот это и есть бред который я не могу понять.....

а во вторых а что странного в
=======
7)MB = ws.Range(Cells(ххх, 2), Cells(ХХХ_end, 8)).value
8)ComboBox1.List = Application.MB.Value
=======

тож не пойму - повторяю - Я не супер профи...

vkodor

Сенкс, заработало.... ;-))
Век живи, век учись...