Здравствуйте!
Ранее с вашей помощью - выполнила подтягивание данных в ячейку из исходного файла, но это неудобно оказалось - данных много, поэтому требуется сделать подтягивание из другого файла = каким образом изменить код подскажите пожалуйста.
Ранее с вашей помощью - выполнила подтягивание данных в ячейку из исходного файла, но это неудобно оказалось - данных много, поэтому требуется сделать подтягивание из другого файла = каким образом изменить код подскажите пожалуйста.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("J3:J500")) Is Nothing Then Dim MV As Range Dim L As Variant L = Target Set MV = Worksheets("маты").Columns(1).Find(L, , , xlWhole) If Not MV Is Nothing Then k = MV.Value Debug.Print Target.Offset(0, -7) = MV.Offset(0, 1) & " " & MV.Offset(0, 2) & " " & MV.Offset(0, 3) Target.Offset(0, -6) = MV.Offset(0, 4) End If End If End Sub |