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

[Reefdes]

есть книга.
имя одних листов начинаются с 1, других с 2
как заставить выбирать по "1" или "2"?

[kangaroo]

Здравствуйте!
А если в аналогичной задаче нужно выбрать не отдельные ячейки, а диапазон? Предположим, А20:А25. Как быть?

Заранее спасибо.

[kangaroo]

Сообщение от 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

А если нужно сделать так же на не с отдельными ячейками, а с диапазоном? Предположим, C25:G25