Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Отображать информацию с других листов, имена которых записаны в ячейках
 
#1
29.04.2021 14:04:38
Я категорически извиняюсь, может быть такая тема уже обсуждалась ранее, но я новичок на форуме и в общем не нашел ответа на свой вопрос и потому собрался с мыслями и прошу Вашей помощи.

Вопрос в том, что нужно что бы в столбце первого листа динамически отображалась информация внесенная в других листах в зависимости от номера листа.
 
 
 
#2
29.04.2021 14:12:13
Код
=СМЕЩ(ДВССЫЛ("'"&$B$1&"'!A1");СТРОКА()-1;0)
 
 
 
#3
29.04.2021 14:35:01
Скопируйте код в модуль листа Лист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
Наверх