Макрос не распределяет информацию.

[Ivan_one]

Доброй ночи!

Написал макрос для распределения информации по столбцам. Макрос работает по нажатию кнопки. Работало все хорошо, при изменении критериев отбора информации, в макросе.

При очередном запуске excel, нажимаю на кнопку и в одной строке информация не распределяется. Захожу в редактор VBA, жму на "Run Sub" и макрос срабатывает. Закрываю редактор и снова нажимаю на кнопку, и снова не распределяется информация. Из-а чего может такое быть и как исправить?

Прикладываю файл.

[maksim_serg]

Касаемо только красной ячейки, код должен выглядеть так:

Range("ab9:ab5000" & lLastRow).FormulaR1C1 = "=IF(AND(RC[-25]=""Бесканальная прокладка"",RC[-17]=""Обратный"",RC[-16]=""Пенополиуретан"",RC[-18]>=1990,RC[-18]<=1997),RC[-26],"""")"

[Ivan_one]

Скопировал формулу в макрос. Не заполняет ячейку.

[Ivan_one]

Сообщение от maksim_serg

Касаемо только красной ячейки, код должен выглядеть так:

Range("ab9:ab5000" & lLastRow).FormulaR1C1 = "=IF(AND(RC[-25]=""Бесканальная прокладка"",RC[-17]=""Обратный"",RC[-16]=""Пенополиуретан"",RC[-18]>=1990,RC[-18]<=1997),RC[-26],"""")"

Нашел причину. Спасибо за помощь . Формула, которую привели правильная.

[kuklp]

У меня заполняет:

Range("ab9:ab5000").FormulaR1C1 = "=IF(AND(RC[-25]=""Бесканальная прокладка"",RC[-17]=""Обратный"",RC[-16]=""Пенополиуретан"",RC[-18]>=1990,RC[-18]<=1997),RC[-26],"""")"

Кстати зачем там & lLastRow? Это ахинея, не говоря уж о том, что lLastRow - пустое.

[Ivan_one]

Сообщение от kuklp

У меня заполняет:

Range("ab9:ab5000").FormulaR1C1 = "=IF(AND(RC[-25]=""Бесканальная прокладка"",RC[-17]=""Обратный"",RC[-16]=""Пенополиуретан"",RC[-18]>=1990,RC[-18]<=1997),RC[-26],"""")"

Кстати зачем там & lLastRow? Это ахинея, не говоря уж о том, что lLastRow - пустое.

Формула работает. Нашел причину.
Спасибо за совет, о & lLastRow. Начинающий в макросах.