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

[jerko]

простой пароль

А какой именно?

[doober]

посмотрите внимательно и увидите.Только это не смайлик.
Чтобы хорошо спрятать, надо положить на видном месте

[jerko]

Спасибо за подсказку. Я Вас понял. Вы создали очень серьозный код, я за это Вам благодарен. Но хотел у вас спросить: возможно ли создать код попроще, который бы, например, суммировал значения в ячейках С5, H5 M5 на 28 листах и выписывал бы ету сумму в любой ячейке пятой строки при создании 29-ого листа?

[doober]

Привязался к именам листов

 Sub MY_SUMM_28()
Dim MY_SUMM As Double
On Error Resume Next
For n = 1 To 28
With Sheets("Лист" & n)
 MY_SUMM = MY_SUMM + .Range("C5") + .Range("H5") + .Range("M55")
End With
Next
Sheets("Лист29").Range("C5") = MY_SUMM
End Sub

[Hugo121]

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

Option Explicit

Sub import()
Dim a, b(1 To 247, 1 To 31)
Dim i As Integer, ii As Integer, x As Integer
For x = 1 To Sheets.Count - 1
a = Sheets(x).[J7:AN253]
For i = 1 To 247
For ii = 1 To 31
b(i, ii) = b(i, ii) + a(i, ii)
Next ii, i, x

Sheets(Sheets.Count).[J7:AN253] = b
End Sub

Сперва создаём пустой массив нужного размера, затем в цикле создаём массив из нужной области и суммируем элементы этих двух равных массивов перебором.
В массиве b накапливается общая сумма.
В итоге массив b одним действием вываливаем в нужное место.
Надо только позаботится, чтобы десятичные разделители данных соответствовали системным.