Создание отчёта

[SIR]

Всем, добрый день!
Ежесуточно нужно вводить наработку в ячейки C8-I8.Как сделать что бы введенное число в ячейки C8-I8 автоматически добавлялось в ячейки C12-15 - I12-15? Вводимые числа могут быть разные.Строку С15-I15 нужно ежемесячно обнулять.Отчет занимает целую страницу А4. Если можно без макросов или с макросами если без них нельзя..Если можно с примером и подробным описанием я чайник.Заранее всем ОГРОМНОЕ СПАСИБО!!!!!

[Hugo121]

Макросом:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C8:I8")) Is Nothing Then
        Target.Offset(4, 0).Value = Target.Offset(4, 0).Value + Target.Value
        Target.Offset(5, 0).Value = Target.Offset(5, 0).Value + Target.Value
        Target.Offset(6, 0).Value = Target.Offset(6, 0).Value + Target.Value
        Target.Offset(7, 0).Value = Target.Offset(7, 0).Value + Target.Value
    End If
End Sub

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

[SIR]

Огромное спасибо!!! А если №2и3 отработали по 24 часа и у них в ячейках стоит уже 24 то суммирование не происходит их нужно затирать и вводить по новой, а нужно что бы суммировались.Я думаю что при выходе из программы строки С8-I8 должны обнулятся а в строках С12-15 - I12-15 сохранялись расчеты.Как сделать что бы 1 числа месяца строки С15-I15 обнулялись и считали по новой.

[Hugo121]

1. Я думаю, один раз в месяц стереть 7 ячеек можно и вручную.
2. Если лениво поверх 24 забивать ещё раз 24 (так оно считает), то можно макрос переделать - поставить на лист кнопку, по нажатию на которую произойдёт суммирование. Так код даже проще, правда больше

Sub tt()
[c12] = [c12] + [c8]
End Sub

и размножить на все ячейки.

[SIR]

[QUOTE=Hugo121;700038]1. Я думаю, один раз в месяц стереть 7 ячеек можно и вручную.
2. Если лениво поверх 24 забивать ещё раз 24 (так оно считает), то можно макрос переделать - поставить на лист кнопку, по нажатию на которую произойдёт суммирование. Так код даже проще, правда больше

Sub tt()
[c12] = [c12] + [c8]
End Sub

и размножить на все ячейки.[/QUOTE/]

А как это сделать, я ведь чайник в этом деле. Объясни если не трудно.Заранее благодарен!!!

[Hugo121]

Ну вот добавил кнопку из автофигуры поверх ячейки, на кнопку повесил макрос.
Макрос пересчитывает С, для других столбцов добавьте аналогичные строки (зайдите через Alt+F11 в редактор, или кликнув ПКМ на ярлыке листа -> исходный текст, там в листе текст макроса.

[SIR]

Спасибо!!! Все получилось.