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

[Oleg_123]

Здравствуйте!
Почему один и тот же макрос в одном файле выводит общий итог (колонки 3 и 4 на листе "Список по районам"), а в другом - нет.
В файле-примере три вкладки:
"База данных травма", "Реестр" и "Список по районам"
Макрос "БОЛЬНИЧКА01" выводит итоги на вкладку "Список по районам" с "База данных травма", "БОЛЬНИЧКА02" - с вкладки "Реестр"
Из файлов удалены персональные данные, оставлено содержимое колонок, с которых работает макрос. Оставлена структура файлов.
И как сделать, чтобы макрос запускался с кнопки, где можно было бы задать к примеру, "с 01.03.2017 по 01.04.2017" или другой период времени?
Книга1.rar
Вроде все поменял в макросе, в обоих случаях макрос - рабочий.
Однако с вкладки "База данных травма" он считает общий итог, а с владки "Реестр" - нет.
Не могу понять, в чем причина.
Заранее спасибо
С ув. Олег

[Hugo121]

У меня вроде оба работают и всё считают.

[Oleg_123]

У меня с одного макроса вот - это:
Рис1.jpg
Со второго:
Рис2._.jpg
Не могу понять, почему

[Aleksandr H.]

БОЛЬНИЧКА02

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

БОЛЬНИЧКА01

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

[Oleg_123]

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

БОЛЬНИЧКА02

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

БОЛЬНИЧКА01

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

???
Так, я сделал эти изменения, чтоб заработал макрос во втором случае, т.к., во втором случае массив начинается с 5 строки (до 5 строки - там оглавления, шапка таблицы);
в первом же случае, - с 3-й строки, т.к., все, что выше 3-й строки - там тоже оглавления, таблица начинается с 3-й строки.
Как это отвечает на мой вопрос?

[Aleksandr H.]

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

[Hugo121]

Надо было сразу конкретно указать где там эти суммы - или мы тут играем в найди 10 отличий?
Правильно указали про 3/5 - массив ведь лежит на боку.

[Oleg_123]

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

Надо было сразу конкретно указать где там эти суммы - или мы тут играем в найди 10 отличий?
Правильно указали про 3/5 - массив ведь лежит на боку.

"конкретно указать где там эти суммы" - см выше, я их указал.
Насчет отличий - их не 10.
Это номера колонок
1) с датами осмотра;
а)

key_date = CDate(a(i, 7))

б)

 key_date = CDate(a(i, 6))

2) с районами;
а)

If a(i, 20) <> "" Then sd_dist.Item(a(i, 20)) = ""

б)

If a(i, 11) <> "" Then sd_dist.Item(a(i, 11)) = ""

3) с группами;
а)

gr = Gruppa(a(i, 31))

б)

gr = Gruppa(a(i, 21))

и аргументы функции в конце макроса
а)

Function Gruppa(ByVal arg As String) As Byte
    Dim x As Byte
'-----------------
    Select Case arg
        Case "1А": x = 1
        Case "1Б": x = 2
        Case "Вторая": x = 3
        Case "Третья": x = 4
        Case Else: x = 0
    End Select
    Gruppa = x
End Function

Function Gruppa(ByVal arg As String) As Byte
    Dim x As Byte
'-----------------
    Select Case arg
        Case "1а": x = 1
        Case "1б": x = 2
        Case "2": x = 3
        Case "3": x = 4
        Case Else: x = 0
    End Select
    Gruppa = x
End Function

Иначе они не запустятся.

А в остальном макросы ничем не отличаются.
Однако, в одном случае выводится общий итог, в другом нет. (См выше)
А что значит "массив ведь лежит на боку."?

[Oleg_123]

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

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

Пробовал, второй макрос вообще не запускается
ОШИБКА макроса.JPG
ОШИБКА макроса1.jpg
При изменении 3 на 5 во втором макросе он работает

[Aleksandr H.]

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

Вы пробовали оба макроса запускать от 3 строки?

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

При изменении 3 на 5 во втором макросе он работает

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