Добрый день. Всех форумчан поздравляю с праздником и хорошей погодой. Желаю всем здоровья, денег, времени, удачи всем. Ну и вопрос, конечно. В форме в КомбоБоксе№2 не выводятся значения самого последнего диапазона. Т.е. в КомбоБоксе№1 выбираем "o". В КомбоБоксе№2 должен появиться список значений диапазона "o". А этого не происходит. Остальные выводятся нормально. Пробовал в коде на обновление КомбоБокса№1 менять местами последний и предпоследний диапазон--при этом перестаёт выводится именно тот диапазон, который расположен в коде последним. Что это такое и как исправить?
А RowSource я вообще стараюсь не использовать: несколько раз нарывался на неприятности... Или забираю диапазон в массив и его в List, или перебираю циклом (AddItem)
Private Sub ComboBox1_Change()
Dim Rng As Range, LastRow As Long, Arr()
Set Rng = Rows(4).Find(what:=Me.ComboBox1, LookIn:=xlValues, lookAt:=xlWhole)
If Not Rng Is Nothing Then
LastRow = Cells(Rows.Count, Rng.Column).End(xlUp).Row
Arr = Range(Cells(5, Rng.Column), Cells(LastRow, Rng.Column)).Value
Me.ComboBox2.List = Arr
End If
End Sub