Цитата vetold74:
Дайте пожалуйста подсказку почему ? »
|
Вы неправильно используете свойства и методы объектов. Кроме того, в файлах нет листов с такими названиями, на которые вы ссылаетесь.
Цитата vetold74:
в файле "Приказ" две подсвеченые ячейки с них забираются данные. »
|
Нужно их заполнить.
Цитата vetold74:
Set poiskcell = Workbooks("БАЗА_ВП") »
|
Расширение у файла может быть различным, его следует указывать.
Цитата vetold74:
Worksheets("Приказ").Range("B18") »
|
По факту лист называется "Делить", а не "Приказ". Исправьте или в коде, или в файле.
Такого листа тоже нет.
Насколько я могу судить, код должен быть примерно таким, а файлы должны ему соответствовать:
Код:
Sub KOD()
Dim myPhrase As Range, myCell As Range, vstavkaKod As Range, poiskcell As Range, Obmen As Range
Set myPhrase = Worksheets("Приказ").Range("B18")
Set vstavkaKod = Worksheets("Приказ").Range("K10")
Workbooks.Open "D:\робота\1\робота\БАЗА_ВП.xlsx"
Worksheets("13_11").Activate
Set poiskcell = Workbooks("БАЗА_ВП.xlsx").Worksheets("13_11").Range("C1:C30")
Set myCell = poiskcell.Find(myPhrase)
If Not myCell Is Nothing Then
MsgBox "Адрес найденной ячейки: " & myCell.Address
Set Obmen = myCell.Offset(, 17)
Obmen.Value = vstavkaKod.Value
Workbooks("БАЗА_ВП.xlsx").Save
Else
MsgBox "Не найдено"
Workbooks("БАЗА_ВП.xlsx").Close
End If
End Sub