Мой первый макрос

[valerij]

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

1) Т.к. при отключении обработки всех событий Excel у Вас то скорее всего речь идет не о формуле в зависимой ячейке, а об обработке события по изменению значения ячейки.

SAS
Я конечно, ни чего не понял, предлагаю, взглянуть, там модуль2, макрос Очистка, в нем, все коменты.
Пара слов для чего это все.
Дело в том, что когда заканчивается месяц, я готовлю, следующий, а для этого надо очистить все данные, Делаю в ручную, выделяю все 13 листов и в соответствующие ячейки ввожу нули, копирую и в следующий день ......Почти всегда забывая, что первые восемь листов, отличаются от других, пять, вообщем мороки, хватает.
Вот я и подумал, создам макрос Очистка, вызвав его стандартными процедурами, что бы исключить случайность.

Теперь о дате. Ввод даты находится в листе "ЛЕН" в А3, далее с шагом 48 =A3+1 и т. д., все остальные листы привязаны к =ЛЕН!A3....
Но в макросе книги есть цикл даты, где конечное число надо править в ручную, конечно я забываю о нем и только в конце месяца, когда последний день не работает, я переделываю...
Сейчас сделал так, где A1443 последняя яч. 31 дневного месяца, конечно, февраль, надо править в ручную

dt = CLng(Left(Range("A1443"), 2))
If dt < 31 Then dt = 30
For iCount& = 1 To dt

Вот почему, я говорил о имени файла

[SAS888]

Так и не понял, нужно ли обнулять диапазоны "F3:F37", "H3:H37", "K3:K37" и далее с шагом 48. Посмотрите вложение. По поводу даты - в коде есть комментарий. Может что не так? Или что не работает как надо? Серьезного тестирования я не проводил.
P.S Имя файла изменено для предотвращения возможной ошибки при варианте с вычислением последнего дня месяца по имени файла.

[valerij]

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

Так и не понял, нужно ли обнулять диапазоны "F3:F37", "H3:H37", "K3:K37" и далее с шагом 48

Нужно и обязательно, еще толком не смотрел, бо с температурой, долго не высижу

[SAS888]

Тогда так.

[valerij]

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

Тогда так.

Ага, ОК!
Только не работает ввод данных, ввожу в D3 число в любом листе, результата в F3:F37", "H3:H37", "K3:K37" -НЕТ

Но с этим я разбирусь
SAS
Спасибо, все работает.

[SAS888]

Нашел! В модуле "Эта книга", в коде обработки события Workbook_SheetChange, в строке

For iCount& = 1 To Day(DateSerial(Year(d), Month(d) + 1, 1) - 1)

замените iCount& = 1 на iCount& = 0, т.к. следующая строка

With Sh.Range("B3:B37,D3:K47").Offset(iCount& * 48)

сразу даст смещение, проигнорировав строки с 3 по 37.

[valerij]

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

Нашел! В модуле "Эта книга"

Понял! Замена приводит к какому-то длительному процессу т. е. сумма выскачила и пошел чето делать
А яч. А6, она у вас во всех циклах?
Ей надо 8 первых листов и шаг 48 не надо, но удивительно, там, А54......, нулей нет
Возможно, что ячейка защищена?

[SAS888]

Не экономьте слова!
1) Ячейка "A6" обнуляется только в первых 8-ми листах.
2) Шаг ей по барабану, т.к. к ней явное обращение ("выдергивать будет еще дольше).
3) Что про А54...? Где нет нулей?

[valerij]

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

Не экономьте слова!
2) Шаг ей по барабану, т.к. к ней явное обращение ("выдергивать будет еще дольше).

Уже Все увидел, все правильно!
Повторюсь
Замена "iCount& = 1 на iCount& = 0" приводит к какому-то длительному процессу т. е. ввожу число в D, сумма выскачила и пошел чето делать

[SAS888]

А Вы обратили внимание на другие изменения в коде? Там, в частности, передвинуты строки, запрещающие обработку событий в самое начало.
По крайней мере, у меня последний вариант (см. пост № 34) работает "влет".