Выпадающий список с подстановкой заданых значений

[Сергей Ш.]

Добрый день.
Есть ли такая возможность, что бы при выборе значения из выпадающего списка автоматически вносились данные в строку.
Пример во вложении

[VictorM]

Есть ли такая возможность

Уверен, что есть.
Только вот какие данные и в какую строку из примера непонятно.

[Сергей Ш.]

Смысл такой, при выборе значения в колонке "Список" автоматически вносятся заданные данные в строку от 1 до 16.
Во вложении пример с выбранным значением "Значение2"

[kalbasiatka]

в модуль листа (для первого примера, второй не смотрел):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B7:B14")) Is Nothing Then
        a = Range("B28:S31").Value
        For i = 1 To UBound(a)
            If a(i, 1) = Target.Value Then
                cl = 4
                For j = 3 To 18
                    Cells(Target.Row, cl) = a(i, j)
                    cl = cl + 1
                Next
            End If
        Next
    End If
End Sub

[gling]

Можно формулами

=ЕСЛИОШИБКА(ВПР($B18;$B$28:$S$31;СТОЛБЕЦ()-1;0);"")

[Сергей Ш.]

Макросом получилось, спасибо.
Вопрос: А если данные, которые должны будут отображаться, будут находится на другом листе и он будет скрыт, то как быть тогда?

[kalbasiatka]

Сообщение от Сергей Ш.

Макросом получилось, спасибо.
Вопрос: А если данные, которые должны будут отображаться, будут находится на другом листе и он будет скрыт, то как быть тогда?

Тогда не надо показывать пример который не соответствует реальному файлу. Потом не только листы надо будет, но и диапазон будет динамический и контрольных значений будет больше и много чего ещё.
Указать явно на лист:

a = Sheets("имя скрытого листа").Range("B28:S31").Value

[Сергей Ш.]

Прошу прощения

[Сергей Ш.]

Спасибо огромное, выручили