Добрый день! На лист1 у меня справочник. При вводе на лист2 в любую ячейку значение которое находится в столбце А лист1 нужно получить под этим значением все значения в ячейках В:I. Подскажите пожалуйста.
Добрый день! На лист1 у меня справочник. При вводе на лист2 в любую ячейку значение которое находится в столбце А лист1 нужно получить под этим значением все значения в ячейках В:I. Подскажите пожалуйста.Luba777
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target = "" Then Exit Sub Application.EnableEvents = False With Sheets("Лист1") With .Range(.Cells(1), .Cells(1).End(xlDown)) Set rF = .Find(Target, .Cells(1), xlValues, xlWhole) End With End With If Not rF Is Nothing Then Target.Offset(1, 0).Resize(1, 8).Value = rF.Offset(0, 1).Resize(1, 8).Value End If Application.EnableEvents = True End Sub
[/vba]
Добрый день. Если правильно понял [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target = "" Then Exit Sub Application.EnableEvents = False With Sheets("Лист1") With .Range(.Cells(1), .Cells(1).End(xlDown)) Set rF = .Find(Target, .Cells(1), xlValues, xlWhole) End With End With If Not rF Is Nothing Then Target.Offset(1, 0).Resize(1, 8).Value = rF.Offset(0, 1).Resize(1, 8).Value End If Application.EnableEvents = True End Sub