Автозаполнение ячеек в 2 таблицах при выборе значения в другой ячейке

linar-sham Пользователь Сообщений: 11 Регистрация: 26.08.2019	#1 18.09.2019 13:44:12 Добрый день, подскажите пожалуйста как сделать автозаполнения нескольких таблиц на разных листах при выборе значения в одной таблице. Спасибо за помощь Прикрепленные файлы Лист Microsoft Excel.xlsx (10.79 КБ)

Kuzmich

Пользователь

Сообщений: 8053 Регистрация: 21.12.2012

18.09.2019 14:42:47

В модуль листа Лист1

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A11:E11")) Is Nothing Then
        Application.EnableEvents = False
Dim Fio As String
Dim FoundFio As Range
      Range(Cells(13, Target.Column), Cells(18, Target.Column + 1)).ClearContents
      Fio = Cells(Target.Row, Target.Column)
        Set FoundFio = Rows(1).Find(Fio, , xlValues, xlWhole)
     If Not FoundFio Is Nothing Then
       Range(Cells(3, FoundFio.Column), Cells(8, FoundFio.Column + 1)).Copy Cells(13, Target.Column)
     End If
   End If
    Application.EnableEvents = True
End Sub

Вторую часть задачи попытайтесь решить сами

linar-sham

Пользователь

Сообщений: 11 Регистрация: 26.08.2019

18.09.2019 14:46:07

Цитата

Kuzmich написал:
1234567891011121314Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A11:E11")) Is Nothing Then Application.EnableEvents = FalseDim Fio As StringDim FoundFio As Range Range(Cells(13, Target.Column), Cells(18, Target.Column + 1)).ClearContents Fio = Cells(Target.Row, Target.Column) Set FoundFio = Rows(1).Find(Fio, , xlValues, xlWhole) If Not FoundFio Is Nothing Then Range(Cells(3, FoundFio.Column), Cells(8, FoundFio.Column + 1)).Copy Cells(13, Target.Column) End If End If Application.EnableEvents = TrueEnd Sub

Огромное спасибо))