Run-time error '381':

[du_hast]

Проблема вот в чем:
В Excel97

Private Sub UserForm_Initialize()
ComboBox1.List = ActiveWorkbook.Sheets(podraz_service).Range(podraz_service_rng)
ComboBox1.ListIndex = -1
End Sub
----это все работает и не выдет ошибки

а В Excel2000 пишет, что "Не удается задать свойство List. Недопустимый индекс массива свойств."

Подскажите в чем проблема, а то не могу разобраться.

[GSerg]

Дык не надо -1 задавать, он изначально стоит

[du_hast]

Убрал .... и все равно не помагает.
Так почему же в Excel 97 работает, а в 2000 не работает?

[GSerg]

А, точно...
Ну можно попробовать перебором его заполнить.

[Igor_123]

Код: Выделить всё

Private Sub UserForm_Initialize()
Dim a As Variant
a = CVar(ActiveWorkbook.Sheets("podraz_service").Range("podraz_service_rng"))
ComboBox1.List = a
ComboBox1.ListIndex = -1

End Sub

Они, видимо изменили тип Range. Ввобщем придется явно приводить к варианту.
Удачи

[du_hast]

и это не помогает
теперь он пишет: "Run-time error '9': Subscript out of range"

может надо что-нибудь, да где-нибудь в свойствах поменять,а? Я уже запарился с этой бадягой и не знаю, что этому VBA еще предложить.

[GSerg]

А, дык тогда просто нет такого диапазона или такого листа.

[du_hast]

Есть они все, я их в Модуле прописал как Public Const - (или может этого не стоит делать?)

[GSerg]

Кхм...
Так podraz_service - это имя переменной?

[Igor_123]

У тебя это переменные,а я так назвал лист и диапазон(так быстрее было проверить)
Кавычки убери да!
Удачи!

[du_hast]

Короче ....

в модуле я написал вот это:
Public Const podraz_service = "Подразделения сервис"
Public Const podraz_service_rng = "b4:b8"

а в ComboBox-е то, что было описано выше, ну и после этого выдает ошибку.

[du_hast]

TO Igor123 - все заработало - Thank you very much ....

[Евгений Д.]

Так должно сработать:

Private Sub UserForm_Initialize()

ComboBox1.List = _
Sheets(podraz_service).Range(podraz_service_rng).Value

End Sub

[Igor_123]

Как подписался один человек:

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас (с) GSerg:Кто-то ещё до него