Копирование строки с формулой

[Uralmaster]

Такая проблема - в книге 1000 листов с карточками-листами клиентов а на самом 1 листе (сводный лист) - сводные данные по строкам которые собираются с листов клиентов
те ячейка A1 сводного листа выбирает max значения из диапазона B1:B500 листа1:
ячейка A2 сводного листа выбирает max значения из диапазона B1:B500 листа2;
ячейка A3 сводного листа выбирает max значения из диапазона B1:B500 листа3; и тд

нужен именно макрос на сводный лист который отрабатывает формулы в диапазон A1:A500

=МАКС(' 2'!$A$1:$A$5000) в ячейку A1 сводного листа
=МАКС(' 3'!$A$1:$A$5000) в ячейку A2 сводного листа
=МАКС(' 2'!$A$1:$A$5000) в ячейку A3 сводного листа
и тд
тк строк в сводном листе много при прогрессии или перетаскивании номера листов не изменяются - напряжно 1000 ячеек перебить на нужный лист

[kuklp]

Public Sub www()
    Dim sh As Worksheet, i&
    i = 1
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "Сводный лист" Then
            Worksheets("Сводный лист").Cells(i, 1).FormulaLocal = "=МАКС('" & sh.Name & "'!A2:A500)"
            i = i + 1
        End If
    Next
End Sub

[Uralmaster]

Все работает спасибо за поддержку только блин еще 2 условий не учел:
1.Макрос нужен не по кнопке а в исходном тексте листа
2.В сводном листе данные собираются не с ячейки A1 а в диапазоне E4:E504 - как этот диапазон указать ?

[Uralmaster]

можно ссылочки на учебники VBA толковые чтоб элементарные формулы писать

[kuklp]

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

1.Макрос нужен не по кнопке а в исходном тексте листа

Ну в тексте, а дальше? Как его запускать, силой мысли? Диапазон поправил.