извлечение остатка по модельно из одного прайса и добавление в другой

[Grizli177]

Добрый день!
Суть проблемы:
Есть два файла (возможно будет больше), один это прайс, второй это остаток на складе.
Необходимо, чтобы искался артикул поставщика (первая колонка в прайсе) в ячейках с названием модели и извлекал кол-во.

[EducatedFool]

Формула =ВПР() вам поможет
http://www.planetaexcel.ru/techniques/2/106/

[Grizli177]

Сообщение от EducatedFool

Формула =ВПР() вам поможет
http://www.planetaexcel.ru/techniques/2/106/

Формула ВПР ищет точное соответствие, а у меня все сложнее
например:
артикул в прайсе
9666399-06

а эта позичия в остатках
Бензопила Husqvarna 236 X-TORQ 9666399-06 (+ доп. цепь)

[Grizli177]

нашел в сети программку- принцип подходящий, но отна ичет значение только одной ячейки, а мне необходимо значение для каждой ячеки в столбце B. Примерно 1000 позиций

Private Sub Worksheet_Change(ByVal Target As Range)
Dim firstAdress As String
Dim rng As Range
Dim i As Integer
Dim j As Integer

If Target.Address(False, False) = "B11" Then
Worksheets("Номер").Range("D11:D20" ) = ""
Worksheets("Номер").Range("F11:D20" ) = ""
For i = 2 To 5
If i = 5 Then
j = 11
Set rng = _
Worksheets(CStr(i)).Range("A3:A109" , "I3:I109"). _
Find(What:=CStr(Target.Value), _
LookIn:=xlValues, _
LookAt:=xlPart, _
MatchCase:=False)

If Not (rng Is Nothing) Then
firstAdress = rng.Address
Do
'rng.Interior.Color = RGB(255, 255, 0)
Worksheets("Номер").Range("F" & j) = rng.Offset(0, 4).Value
j = j + 1
Set rng = Worksheets(CStr(i)).Range("A3:A109" , "I3:I109"). _
FindNext(rng)
Loop While Not (rng Is Nothing) And rng.Address <> firstAdress
End If
Else
j = 11
Set rng = Worksheets(CStr(i)).Range("B2:B33") . _
Find(What:=CStr(Target.Value), _
LookIn:=xlValues, _
LookAt:=xlPart, _
MatchCase:=False)

If Not (rng Is Nothing) Then
firstAdress = rng.Address
Do
'rng.Interior.Color = RGB(255, 255, 0)
Worksheets("Номер").Range("D" & j) = rng.Offset(0, 9).Value
j = j + 1
Set rng = Worksheets(CStr(i)).Range("B2:B33") .FindNext(rng)
Loop While Not (rng Is Nothing) And rng.Address <> firstAdress
End If
End If
Next
End If
End Sub

[Скрипт]

Grizli177, выложите книгу с примерными данными и поясните, что нужно сделать в выложенной книге.