встретился макрос с ограничением работы по дате конкретней все что после 31.10 не работает подскажите какие строки убрать для коректной работы [moder]Приложите пример в Экселе! И поясните, какие именно ограничения, и что значит "не работает".[/moder]
Здравствуйте !
встретился макрос с ограничением работы по дате конкретней все что после 31.10 не работает подскажите какие строки убрать для коректной работы [moder]Приложите пример в Экселе! И поясните, какие именно ограничения, и что значит "не работает".[/moder]frimen
Сообщение отредактировал frimen - Понедельник, 02.11.2015, 13:26
Убирайте все строки! Как вам мог встретиться такой макрос, записанный макрорекордером. Такое обычно не выкладывают для всеобщего скачивания ) Приложите файл с этим макросом и объясните, что он должен делать в идеале.
Убирайте все строки! Как вам мог встретиться такой макрос, записанный макрорекордером. Такое обычно не выкладывают для всеобщего скачивания ) Приложите файл с этим макросом и объясните, что он должен делать в идеале.wild_pig
frimen, Вы скинули личную книгу макросов, никаких данных на листах в ней нет, только #ССЫЛКА! в колонке K. Покажите файл, с которым этот макрос должен работать, и покажите, что в итоге должно получиться. В свой файл перетащите модуль47 (просто мышкой из одного VBA проекта в другой), остальные 84 нам не интересны.
Как написала Елена, в коде только один кусок, который может не выполниться, при невыполнении условий (добавила комментарии в коде):[vba]
Код
If Year(Now) >= 2012 And Month(Now) >= 11 And Day(Now) >= 1 Then Range("B2:Q31").Select' Выделяем диапазон B2:Q31 Selection.ClearContents' Очищаем его содержимое Range("B2").Select ' Выделяем В2 End If
[/vba] Для сегодняшней даты, это условие выполняется, соответственно и код выполнится, весь остальной код должен выполнятся всегда (при отсутствии ошибок). Так что, скорее всего либо ошибка не в дате, либо Вы показываете не тот макрос. В любом случае,
Приложите файл с этим макросом и объясните, что он должен делать в идеале
Мне кажется, нам будет проще написать макрос с нуля, чем разобраться в этом коде, где 90% строк можно просто удалить.
UPD
Цитата
#ССЫЛКА! в колонке K
это появилось, после запуска макросе, в исходном файле этого нет
frimen, Вы скинули личную книгу макросов, никаких данных на листах в ней нет, только #ССЫЛКА! в колонке K. Покажите файл, с которым этот макрос должен работать, и покажите, что в итоге должно получиться. В свой файл перетащите модуль47 (просто мышкой из одного VBA проекта в другой), остальные 84 нам не интересны.
Как написала Елена, в коде только один кусок, который может не выполниться, при невыполнении условий (добавила комментарии в коде):[vba]
Код
If Year(Now) >= 2012 And Month(Now) >= 11 And Day(Now) >= 1 Then Range("B2:Q31").Select' Выделяем диапазон B2:Q31 Selection.ClearContents' Очищаем его содержимое Range("B2").Select ' Выделяем В2 End If
[/vba] Для сегодняшней даты, это условие выполняется, соответственно и код выполнится, весь остальной код должен выполнятся всегда (при отсутствии ошибок). Так что, скорее всего либо ошибка не в дате, либо Вы показываете не тот макрос. В любом случае,