Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = 0
'телефон
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 1) = Application.VLookup(Target, [справочник], 12, 0)
'объем
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 2) = Application.VLookup(Target, [справочник], 15, 0)
'Зп водителя
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 7) = Application.VLookup(Target, [справочник], 16, 0)
'Юр лицо
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 11) = Application.VLookup(Target, [справочник], 6, 0)
'Адрес
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 12) = Application.VLookup(Target, [справочник], 17, 0)
'Район
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 13) = Application.VLookup(Target, [справочник], 9, 0)
'Мин
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 14) = Application.VLookup(Target, [справочник], 14, 0)
'БП/БПП
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 8) = Application.VLookup(Target, [справочник], 3, 0)
'Менеджер
If Not Intersect(Target, Me.Range("E6:E300"), Me.UsedRange) Is Nothing Then
Target.Offset(, 9) = Application.VLookup(Target, [справочник], 7, 0)
End If
End If
End If
End If
End If
End If
End If
End If
End If
Application.EnableEvents = 1
End Sub |