Страницы: 1
RSS
Отображать информацию с других листов, имена которых записаны в ячейках
 
Я категорически извиняюсь, может быть такая тема уже обсуждалась ранее, но я новичок на форуме и в общем не нашел ответа на свой вопрос и потому собрался с мыслями и прошу Вашей помощи.

Вопрос в том, что нужно что бы в столбце первого листа динамически отображалась информация внесенная в других листах в зависимости от номера листа.
 
Код
=СМЕЩ(ДВССЫЛ("'"&$B$1&"'!A1");СТРОКА()-1;0)
 
Скопируйте код в модуль листа Лист1. Но я бы ещё добавил проверку на наличие листа или ограничил ввод данных в ячейку В1.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        LastRow = Cells(Rows.Count, 1).End(xlUp).Row
        Range(Cells(1, 1), Cells(LastRow, 1)).ClearContents
        With Sheets(Target.Text)
            LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
            .Range(.Cells(1, 1), .Cells(LastRow, 1)).Copy Cells(1, 1)
        End With
    End If

End Sub
Страницы: 1
Читают тему (гостей: 1)
Наверх