Out of stack space

[Gornostay]

Добрый день. Имеется проблема в каскадных списках. Есть таблица-справочник для каскадных списков. В ней около 5000 строк и 3 столбца. При попытке выбрать, что-либо из выпадающего списка появляется ошибка Out of stack space. Обработка таблицы и составление списков происходит в VBA. Не могу придумать, что сделать.
https://yadi.sk/d/sT1OcZDIqXawx ссылка на проблемный файл. Буду благодарен за помощь.

[Дмитрий Щербаков(The_Prist)]

У Вас в процедуре SetEmpty бесконечное зацикливание на самой себе. Удалите оттуда строку:

Код (vb) Выделить Развернуть

SetEmpty rngTemp

что вообще планировалось этой процедурой делать?

[Gornostay]

SetEmpty rngTemp

Set rngTemp = Range(arrTemp(2))
' очищаем дочернюю ячейку
за счёт рекурсивного вызова SetEmpty планировалось очищать всю цепочку до конца
Ваш совет помог спасибо, теперь возникли другие вопросы. Как можно сделать выпадающий список зависящий от двух переменных

[vikttur]

Ознакомьтесь, пожалуйста, с правилами форума.
"Один вопрос - одна тема". Не следует размещать в одной теме разноплановые вопросы.

[Дмитрий Щербаков(The_Prist)]

Как можно сделать выпадающий список зависящий от двух переменных

Согласен с Виктором. Ознакомьтесь с правилами форума - Вы с ними соглашались при регистрации.

[Gornostay]

Прошу прощения. Еще раз спасибо за помощь.