Добрый день. При двойном клике на ячейках диапазона C13:C206 выдает ошибку 381 Could not set the list property. Invalid property array index. Я так понимаю, значения собираются но не заносятся в listbox. Не могу понять в чем проблема. Как исключить ошибку и вывести заполненный Listbox?
если рассматривать каждую строку кода отдельно - то все вроде бы нормально но если рассматривать весь этот код вместе - это похоже на бред проблема в бессвязном, полном необьяснимых загадок коде
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как вариант: 1. Убрать Dim arrFull() As Variant в процедуре Private Sub Worksheet_BeforeDoubleClick листа Price. 2. В самой процедуре Private Sub Worksheet_BeforeDoubleClick у всех arrFull убрать скобки. 3. Добавить отдельный модуль. В нём объявить Public arrFull As Variant на уровне модуля.
При запуске напрямую UserForm_Initialize(), данные в listbox загружаются.
Код
Public Sub UserForm_Initialize()
arrFull = Worksheets("Price_of_material").Range("Materials_name").Value
ListBoxItems.List = arrFull
Me.TextBoxItems.SetFocus
End Sub
Но ошибка при вызове FormSearch.Show 0 сохраняется.