Добавление слагаемого в формулу при изменении количества суммируемых файлов

[ratibor]

Господа, помогите, пожалуйста.

Есть формулы вида:
"=[1.xlsm]Лист1'!F32+[2.xlsm]Лист1'!F32+[3.xlsm]Лист1'!F32"

При добавлении нового файла необходимо добавить в формулу данные, чтобы было:
"=[1.xlsm]Лист1'!F32+[2.xlsm]Лист1'!F32+[3.xlsm]Лист1'!F32+[4.xlsm]Лист1'!F32".

Так как сводный файл не идентичен суммируемым, то путь: выделения ячеек и использования Ctrl+Enter не подходит. Необходимо, чтобы именно добавлялось новое слагаемое в формулу с той же ячейки, но нового файла. Таблицы большие. Поэтому менять "ручками" слишком трудоемко.
Подскажите пример кода макроса с помощью которого можно произвести подобную замену в большой таблице.

[ratibor]

есть идеи?

[IgorGO]

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

[ratibor]

IgorGO ситуация следующая: есть несколько сводных файлов, которые собирают данные с файлов с одинаковой структурой, но эти файлы могут добавляться со временем и именуются номерами 1,2,3 и т.д.
Так вот мне интересно, возможно макросом сделать так, чтобы на листе находились ячейки с формулами "=[1.xlsm]Лист1'!F32+[2.xlsm]Лист1'!F32+[3.xlsm]Лист1'!F32" и при запросе со скольких файлов просуммировать, в формулу бы добавлялись слагаемые. Например если 5 файлов, то соответственно: "=[1.xlsm]Лист1'!F32+[2.xlsm]Лист1'!F32+[3.xlsm]Лист1'!F32+[4.xlsm]Лист1'!F32+[5.xlsm]Лист1'!F32". Своды разные, поэтому у каждого свои диапазоны. Ну а заменять по вызову макроса и указанию сколько файлов используется для консолидации. Ну т.е. поменять необходимо именно формулу.

[IgorGO]

приблизительно так:

Sub AddNTime()
  Dim s As String, n As Long, i As Long, cell As Range
  n = Val(InputBox("Укажите число", "Сколько файлов"))
  For Each cell In ActiveSheet.UsedRange
    s = cell.Formula
    If s Like "*Лист1'!F32+*" Then
      For i = Val(Split((Split(s, "[")(UBound(Split(s, "[")))), ".")(0)) + 1 To n
        s = s & "+[" & i & ".xlsm]Лист1'!F32"
      Next
      cell.Formula = s
    End If
  Next
End Sub

но затея довольно странная.

[ratibor]

IgorGO спасибо, но это только к одной формуле, а если меняется столбец и строка Н-р D46?

Т.е. в своде все уже "провязано" формулами, 6 000 строк 48 столбцов.
Я бы конечно создал сводный файл равный по структуре файлам с которых данные суммируются, но форматы заданы "сверху" и не подлежат измению, т.е. "работайте с тем, что есть". Вот и приходится извращаться.

[IgorGO]

моя фраза

но затея довольно странная.

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

[ratibor]

IgorGO вот один из сводов. Сейчас он "провязан" с 15 файлами.

[IgorGO]

Вы победили. я сдаюсь.
мы разговариваем на разных языках.