Суммирование значений в ячейках на разных листах с помощю кода

[jerko]

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

[Hugo121]

Зачем код?

=SUM(Лист1:Лист28!B3)

Еда 40
Транспорт 10
Комунальные услуги 0
Обеды на роботе 48
"Инструменты для
работы" 22
Одежда 0
Отдых 0

[jerko]

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

[doober]

в мене е пропозиция.
Если оргинал хоть чуточку похож на пример,и вы хотите получить те данные,например за этот месяц,за прошлый .за год,то я могу предложить что то на подобии небольшого учета.Заготовка есть,надо немного подогнать под вас.всего один файл Excel с одним листом и формой + файл CSV

[jerko]

+ файл CSV

Что ето за файл?
Вообще то, я представлял, что ето будет просто 1 файл хлс.
Просто я не знаю как задать условие, чтобы подсчет происходил именно на 28-ом листе.
Может кто то знает как ето реализовать?

[doober]

А почему 28,а не по количеству дней в месяце.
Я так понимаю .вы хотите смотреть и подсчитывать расходы за месяц.

[jerko]

Вы правильно говорите, но 4 дня я выдалил, т.к. это 4 выходных (воскресение), расходов у меня не будет. Если же рабочих дней будет 26, то я хотел просто создать чистые листы, а в 28-ом подсчитать

[doober]

Через часик выложу файл.как я представляю ведение расходов

[alex77755]

Но хочеться создать именно код

Лист28.Cells(2, 2) = 0
For i = 1 To ThisWorkbook.Sheets.Count
If i <> 28 Then
Лист28.Cells(2, 2) = Лист28.Cells(2, 2) + Sheets(i).Cells(3, 2).Value
End If
Next i

[doober]

Моточек добавляет запись.
Метелка полностью очищает все данные.
Проект запаролил(простой пароль),чтобы код не испортили.

Количество статей расхода может быть любым