Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Выпадающий список с поиском
 
Всем привет.
Есть файл в котором сделан выпадающий список с поиском значений. Автор не я - нашел на просторах инета. Долго его ковырял, в vba я не очень силен.
Вопрос следующий: работа его полностью устраивает, кроме одного: когда скрываешь столбец со списком - форма не подтягивает значения этого списка. Кто может подсказать что надо исправить?
Файл во вложении
 
Что-то перемудрили, как мне кажется ))
Код
Private Sub UserForm_Initialize()
Dim Arr()
    Arr = Sheets("Список").[MyList].Value
'    Call tbIn_Change
    Me.lbIn.List = Arr
End Sub
 
Юрий М, а где Вы этот кусок кода нашли?)) Подскажите плиз))

Апдейт: туплю) понял) это вы уже исправили)
Изменено: Kurs 31 - 25 Ноя 2017 21:00:13
 
Юрий М, спасибо огромное, заработало)
 
Спасибо, я тоже сделал на основе этого файла учет склада, но возникли вопросы, почему то во вкладке "таблица" не работает нигде вставка CTRL+V, значения можно только вписывать руками или тянуть.


И второй момент - когда я пытался создать с чистого листа точно такую же книгу со всеми макросами путем экспорта и последующего импорта MainForm   MainModule и всех кодов - у меня постоянно выходила ошибка 424 Object required.   В чем секрет я так и не понял голову сломал((
 
clawhammer, откройте одновременно чистую книгу и книгу с макросами, и в редакторе VBA просто перетащите мышкой нужные формы в чистую книгу
Страницы: 1
Читают тему (гостей: 1)