Работа с 2-мя файлами Excel

[Hugo121]

Рано закрывать. Попробую свой вариант на другом принципе сделать. Чуть позже...

[Hugo121]

Вот например так, без открытия файла:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    'If Target.Value = Empty Then Exit Sub 'думаю это лишнее
    Application.ScreenUpdating = False
    If Not Intersect(Target, [D6:D101]) Is Nothing Then    'тут можно указать диапазон побольше
        Application.EnableEvents = False
        If CreateObject("scripting.filesystemobject").FileExists("D:\TMP\3\slone\2.xls") Then
            Target.Offset(, 3).Formula = "=IF(ISNA(VLOOKUP(" & _
            Target.Address & ",'D:\TMP\3\slone\[2.xls]Лист1'!$D:$E,2,0)),"""",VLOOKUP(" & _
            Target.Address & ",'D:\TMP\3\slone\[2.xls]Лист1'!$D:$E,2,0))"
            Target.Offset(, 3).Value = Target.Offset(, 3).Value
        Else
            Target.Offset(, 3).Value = Empty 'стираем если нет файла, т.е. нет точных данных
        End If
        Application.EnableEvents = True
    End If
    Application.ScreenUpdating = True
End Sub

Поменяйте всюду пути на свои, только аккуратно!

[slone2179]

Спасибо попробую, после ковра, теперь пробую присваивать ячейке нуль. Т.е. если я ввожу новую запись, то в ячейке Price должно быть нуль.

[Hugo121]

С нулями так:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    'If Target.Value = Empty Then Exit Sub 'думаю это лишнее
    Application.ScreenUpdating = False
    If Not Intersect(Target, [D6:D101]) Is Nothing Then    'тут можно указать диапазон побольше
        Application.EnableEvents = False
        If CreateObject("scripting.filesystemobject").FileExists("D:\TMP\3\slone\2.xls") Then
            Target.Offset(, 3).Formula = "=IF(ISNA(VLOOKUP(" & _
            Target.Address & ",'D:\TMP\3\slone\[2.xls]Лист1'!$D:$E,2,0)),0,VLOOKUP(" & _
            Target.Address & ",'D:\TMP\3\slone\[2.xls]Лист1'!$D:$E,2,0))"
            Target.Offset(, 3).Value = Target.Offset(, 3).Value
        Else
            Target.Offset(, 3).Value = 0
        End If
        Application.EnableEvents = True
    End If
    Application.ScreenUpdating = True
End Sub

[slone2179]

С нулями сделал, спасибо. Но почему когда ввожу к примеру сс у меня выходит какая-то цена, которая предназначена к примеру CTA-10. Попробуй введи cc и выйдет цифра 3,75. С помощью len я это сделал >=4, а если я захочу такое наименование из двух букв? Можно ли сделать фильтр?

[Hugo121]

В каком коде - на Find?
Там нужно так:

Set myF = Sh.Cells.Find(ThisWorkbook.Sheets(1).Range("D" & myR), , , xlWhole)

Ну а код на формуле ищет точно.

[slone2179]

Короче обнаружил ошибку. Функция Find у меня не ищет до полного совпадения. К примеру у меня есть в файле 2.xls CMC-6M-12G цена 9,6. Теперь в главном файле я ввожу CMC-6M (без 12G) и у меня тоже появляется цена 9.6

[slone2179]

Получается я забыл добавить xlWhole)? и теперь у меня все заработало

[slone2179]

Hugo 121, тут по ходу еще один глюк обнаружил. Когда вводишь например цифру 1 в столбце Price появляется цена 1. Откуда берется это число?

[Hugo121]

Куда вводишь? Где появляется? Где поставить запятую?