Вопрос состоит в следующем. Есть заполненный комбобокс. При на нажатии на любое значение нужно понимать адрес ячейки, информация из которой внесена в комбо. Прошу помощи в решении данной задачи.
В целом задача состоит в том, чтобы при выборе значения в комбо отражались соответствующие значения на форме. Те, последнее событие по определению не верное, но показывает суть задачи. Пытаюсь решить через извлечение адреса ячейки, соответствующей значению комбо. В связи с этим и вопрос, заданный выше.
Возможно у меня не совсем верно и вероятно нужно отлавливать ошибку на случай, если не найдётся значение (хотя оно точно должно найтись) + будет некорректно работать в случае дублирующихся объектов
Код
Private Sub CB_Object_Change()
Dim rngX As Range
Set rngX = Range("B1:B10").Find(CB_Object)
Lb5.Caption = rngX.Offset(, 1)
Lb6.Caption = rngX.Offset(, 2)
End Sub
Извините, имею малый опыт работы с Find. Не учёл нюансов. Вариант Nordheim, вероятно, лучше.
Код
Private Sub CB_Object_Change()
Dim rngX As Range
If Range("B1").Value = CB_Object Then
Set rngX = Range("B1")
Else
Set rngX = Range("B1:B10").Find(CB_Object, , , xlWhole)
End If
If Not rngX Is Nothing Then
Lb5.Caption = rngX.Offset(, 1)
Lb6.Caption = rngX.Offset(, 2)
Else
'что делать если не нашёл?! Вроде не может не найти
End If
End Sub