Как в один лист можно собрать данные с других листов

[Lis000iq]

Привет всем
Нужна помощь, можно ли из множества листов рабочей книги сделать сводный лист, на котором будут отображаться данные нескольких ячеек всех листов рабочей книги, т.е:
Название листа значение ячейки А1 значение ячейки ячейка С3 значение ячейки ячейка А5
Причем при добавлении нового листа в сводном листе тоже добавлялась строка с его данными

[motorway]

В Экселе можно ячейке присваивать значение с другого листа

[mchip]

Вставь этот код на лист куда нужно выводить данные и все...

Private Sub Worksheet_Activate()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        Debug.Print sh.Name
        If sh.Index <> ThisWorkbook.ActiveSheet.Index Then
        Cells(sh.Index, 1).Value = sh.Name
        Cells(sh.Index, 2).FormulaR1C1 = "=INDIRECT(CONCATENATE(RC[-1],""!$A$1""))"
        Cells(sh.Index, 3).FormulaR1C1 = "=INDIRECT(CONCATENATE(RC[-2],""!$C$3""))"
        Cells(sh.Index, 4).FormulaR1C1 = "=INDIRECT(CONCATENATE(RC[-3],""!$A$5""))"
        End If
    Next sh
End Sub

[Lis000iq]

Посмотрите пожалуйста где ошибка?

[mchip]

Проблема в имени листа. Убери из имени пробел и все заработает...

[mchip]

Или замени в формуле

        Cells(sh.Index, 2).FormulaR1C1 = "=INDIRECT(CONCATENATE(""'"",RC[-1],""'"",""!$B$12""))"
        Cells(sh.Index, 3).FormulaR1C1 = "=INDIRECT(CONCATENATE(""'"",RC[-2],""'"",""!$B$11""))"
        Cells(sh.Index, 4).FormulaR1C1 = "=INDIRECT(CONCATENATE(""'"",RC[-3],""'"",""!$E$10""))"

[Lis000iq]

Большое спасибо!!!

[Lis000iq]

А можно сделать так чтобы листы перечислялись со 2 строки а первая была "шапкой" для обозначения. как я только не пробовал не чего не получается

[mchip]

Поставь

sh.Index+1

номер строки определяется номером листа

[Lis000iq]

Все почучилось. Огромная благодарность