Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Динохромный


Contributor


Сообщения: 637
Благодарности: 302

Профиль | Отправить PM | Цитировать


Цитата vetold74:
Дайте пожалуйста подсказку почему ? »
Вы неправильно используете свойства и методы объектов. Кроме того, в файлах нет листов с такими названиями, на которые вы ссылаетесь.
Цитата vetold74:
в файле "Приказ" две подсвеченые ячейки с них забираются данные. »
Нужно их заполнить.
Цитата vetold74:
Set poiskcell = Workbooks("БАЗА_ВП") »
Расширение у файла может быть различным, его следует указывать.
Цитата vetold74:
Worksheets("Приказ").Range("B18") »
По факту лист называется "Делить", а не "Приказ". Исправьте или в коде, или в файле.
Цитата vetold74:
Worksheets("13_11"). »
Такого листа тоже нет.

Насколько я могу судить, код должен быть примерно таким, а файлы должны ему соответствовать:
Код: Выделить весь код
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

-------
[Форум Word и Excel] - [Как запустить Word, Excel и Outlook в безопасном режиме?] - [Как удалить шаблон Word Normal.dotm?]

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:43, 10-08-2022 | #2