Страницы: 1
RSS
Выпадающий списко в userForm с уникальными значениями
 
Добрый день.
Подскажите пожалуйста, как решить такую задачу\проблему.
У меня есть список (на "листе1"). И мне нужно при вызове формы со второго листа ("лист2"), получать данный список, только с уникальными значениями.
Нашел подходящий макрос, но он срабатывает, если форму вызываю именно с того же листа, где и список. А мне нужно, что бы список был на одном листе, а форма на другом.
При ссылке на список, пытался явно прописать лист, но если прописывать лист, то получаю ошибку "runtime error 1004".
Можете подсказать, как поправить макрос?
спасибо.
 
qwt, попробуйте
вот эту часть вставить
Код
Private Sub UserForm_Initialize()
With Worksheets(1)
    Set rng = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
    ComboBox1.List = UniqueValues(rng)
End With
End Sub
вместо
Код
Private Sub UserForm_Initialize()
    Set rng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    ComboBox1.List = UniqueValues(rng)
    
End Sub
Изменено: Mershik - 18.03.2020 17:03:01
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, спасибо, получилось. :)

Я изначально пробовал обратиться к листу, а  последующую часть с Range, не трогал. Выходит, нужно так же и в Range  явно обратиться к листу со списком.
 
можно так сделать, но не уверен, что не убрал, что то важное из функционала
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1
Наверх