Чем обусловлено разное действие одного и того же макроса в разных файлах?

[Hugo121]

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

Почему один и тот же макрос в одном файле выводит общий итог (колонки 3 и 4 на листе "Список по районам"), а в другом - нет.

- наврали, не один и тот же! Различия искать не буду, достаточно и одного, о котором Вы умолчали.
А то, что

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

см выше, я их указал.

так я не слепой, вижу. Но почти за час до публикации этой картинки я уже успел посмотреть файл - и там итоги выводили оба макроса.

[Oleg_123]

Сообщение от Aleksandr H.

Код сами писали или дорабатываете?

Код не сам писал, дорабатываю.
Спасибо большое, заработало!!!
Значит, второй раз замена с "3" на "5" оказалась лишней

For i = 3 To UBound(b) 'проходим про строкам, начиная с 3й

При задании дат (с ... по...)
приходится два раза менять даты в коде

 f_date = CDate("01.04.2017") 'начальная дата
    l_date = CDate("01.07.2017") 'последняя дата
    
    a = Sheets("Реестр").UsedRange.Value 'берём диапазон в массив
    Period = "з  01.04.2017  по  01.07.2017"

Возможно ли сделать так, чтобы даты задавались один раз, с кнопки?

[Oleg_123]

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

- наврали, не один и тот же! Различия искать не буду, достаточно и одного, о котором Вы умолчали.


так я не слепой, вижу. Но почти за час до публикации этой картинки я уже успел посмотреть файл - и там итоги выводили оба макроса.

В моем файле выводились все итоги ?
(включая и ячейки 3 и 4 в нижней строчке таблички района ("Итого")?
В чем, на Ваш взгляд, могла быть причина, что в моем файле, в ячейках 3 и 4 в нижней строчке таблички района ("Итого") итоги не выводились?
Макрос один и тот же, менялись только его привязки к структурам разных файлов.
И речь не в том, наврал я или нет, скрыл я что-то или нет. Sapienti sat. Настоящий профессионал в любом случае все увидит. Именно на это и рассчитывал, обращаясь сюда. Спасибо большое Вам за помощь

[Hugo121]

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

В моем файле выводились все итоги ?

- спросите у автора файла, только он знает ответ. Я поискал - там в файле вообще нет слова "итог"!

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

Настоящий профессионал в любом случае все увидит.

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

[Oleg_123]

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

- спросите у автора файла, только он знает ответ. Я поискал - там в файле вообще нет слова "итог"!

Вы не ответили на мой вопрос. Когда Вы открывали мой файл, там все итоги выводились, включая и нижние ячейки (колонки 3 и 4; стиль R1C1 ) в табличке района тоже? Чем отличается то, что выводилось у Вас от сканов, приведенных мною в теме?
Слова "итог" там действительно нет, но там есть строка, в которой выводятся итоги (это нижняя строчка в табличке района)

[Aleksandr H.]

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

При задании дат (с ... по...)
приходится два раза менять даты в коде

 f_date = CDate("01.04.2017") 'начальная дата
    l_date = CDate("01.07.2017") 'последняя дата
    
    a = Sheets("Реестр").UsedRange.Value 'берём диапазон в массив
    Period = "з  01.04.2017  по  01.07.2017"

якось так

f_date = CDate(Format(InputBox("startdata"), "dd.mm.yyyy"))
    l_date = CDate(Format(InputBox("enddata"), "dd.mm.yyyy"))
a = Sheets("Реестр").UsedRange.Value 'берём диапазон в массив
    Period = "з  " & f_date & " по " & l_date

[Hugo121]

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

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

- нет, в нижних естественно не выводились, Вы ведь код изменили, потому и не выводились.
Но откуда нам знать что там должен быть этот итог, ктож это мог заметить...

[Oleg_123]

Сообщение от Aleksandr H.

якось так

Спасибо. Отлично все работает без необходимости лазить дважды в код. Разве что увеличивается время выполнения макроса

[Oleg_123]

Aleksandr H.
У меня еще вопрос по файлу.
У меня не получилось доформатировать таблички районов в одном макросе.
Я использую два небольших макроса (форматирование "шапки" и нижних строчек в табличках)
Возможно ли вставить их в большой макрос "БОЛЬНИЧКА02" (см. "Книга2"), чтоб получилось в каждом районе наподобиеРис01.JPG
?

Книга2.rar

[Aleksandr H.]

Не углубляясь в детали рефакторинга макроса