'Запускаем макрос при изменении ячеек B2:B1048576 на листе "все ремонты" файла "ремонты.xlsm"
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Application.Intersect(Range("B2:B1048576"), Range(Target.Address)) Is Nothing Then
       
       AddressTarget = Target.Address
       
       NamberRow = Range(AddressTarget).Row
       
       vNamber = ThisWorkbook.Sheets("все ремонты").Cells(NamberRow, "B").Value
       
       If vNamber <> "" Or vNamber <> Empty Then
           MaxRow = Workbooks("Поступление1.xlsx").Sheets("все приходы").Range("A1048576").End(xlUp).Row

           For i = MaxRow To 2 Step -1
               vNamber2 = Workbooks("Поступление1.xlsx").Sheets("все приходы").Cells(i, "A").Value
                   
               If vNamber = vNamber2 Then
                   'подтягиваем нужные данные
                   vRowPost1 = i
               
                   vNamberInvent = Workbooks("Поступление1.xlsx").Sheets("все приходы").Cells(i, "B").Value
                   vNamberModel = Workbooks("Поступление1.xlsx").Sheets("все приходы").Cells(i, "D").Value
                   vNamberStatus = Workbooks("Поступление1.xlsx").Sheets("все приходы").Cells(i, "E").Value
               
                   ThisWorkbook.Sheets("все ремонты").Cells(NamberRow, "G").Value = vNamberInvent
                   ThisWorkbook.Sheets("все ремонты").Cells(NamberRow, "H").Value = vNamberModel
                   ThisWorkbook.Sheets("все ремонты").Cells(NamberRow, "I").Value = vNamberStatus
               End If
           Next i
       End If
       
   End If
End Sub

'Очищаем строку если очищаем какую-либо ячейку B2:B1048576 на листе "все ремонты" файла "ремонты.xlsm"
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Application.Intersect(Range("B2:B1048576"), Range(Target.Address)) Is Nothing Then
       
       AddressTarget = Target.Address
       
       NamberRow = Range(AddressTarget).Row
       
       vNamber = ThisWorkbook.Sheets("все ремонты").Cells(NamberRow, "B").Value
       
       If vNamber = "" Or vNamber = Empty Then
           ThisWorkbook.Sheets("все ремонты").Select
           Rows(NamberRow).Select
           Selection.Delete Shift:=xlUp
           Range("A" & NamberRow).Select
       End If
       
   End If
End Sub

Спасибо! Заработало. Что то я затупил :-(

А у меня не работает даже вот так (даже в новом файле).

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Application.Intersect(Range("B2:B1048576"), Range(Target.Address)) Is Nothing Then
       MsgBox "Ячейка " & Target.Address & "изменена."
   End If
End Sub

Спасибо! Пять минут назад только что это нашёл. Да, это более правильно, сразу рисунок можно отвязать от jpg файла.
А я с копированием мучался.

Вставка просто строкой ActiveSheet.Pictures.Insert(sPicsFilePath & sPicFileName).Select из файла gpg.

Но вставляет со связью с файлом jpg. Если удалить этот файл, то и картинка исчезнет.
И потом опять копируем и вставляем рисунком:

Старую картинку удаляем. Если картинок много, то придётся совать картинки в массив как мне пришлось. При копировании формировать массив со старыми картинками и потом удалить этот массив целиком: ActiveSheet.Shapes.Range(arr).Delete

Спасибо всем! Спасибо модератору, но ранее уже нашёл сам, но только для ворда копированием рисунком. В экселе пока не знаю как сделать, картинки не видно.

Да уж... Печалька, более 100 просмотров и ни одного предложения как это сделать.
Тогда перефразирую вопрос:
1. Как вставить картинку из файла jpg в файл xlsx так чтобы после удаления файла jpg или изменения имени папки где хранится файл jpg картинка сохранялась после закрытия файла xlsx и его открытия заново. А то пишет Не удаётся отобразить связанный рисунок на месте рисунка.
2. Ну если в Excel сделать так нельзя, то как скопировать картинки вместе с ячейками из файла xlsx в файл Word чтобы эти связи с файлом jpg перестали существовать и картинки бы сохранялись бы после такого копирования?
Что только не пробовал, сколько не искал в инете, ничего толком нет. Даже повторным копированием в файле xlsm и удалением старых картинок связи сохраняются с файлами jpg.

Уже 1,5 часа ищу - ничего не нашёл. Как удалить связь в ячейке я знаю, но вот именно картинки - нет.
Пробовал даже вручную удалить - пишет что связи имеются (сами связи не показывает), но удалить не может.
Просто если файл xlsx с картинками переслать другому человеку, то на его компьютере картинки не показываются, т.к. связи разорваны.
Заранее благодарен всем, кто сможет помочь.

Дмитрий, спасибо огромное! Option Base 1 сработало.

Ругается на вторую строку. Не могу понять. Понимаю что что-то не нравится с индексом массива.
Заранее спасибо!

Спасибо! Попробую завтра, устал уже.
Да даже если не сработает, то всё равно ответ полезный был, спасибо.

Это мало что даст, т.к. на других ПК макрос работает. Здесь похо на системные дела. Возможно админы что-то настроили у клиента на работе.
И останавливается на вот этом коде

Приветствую, уважаемые форумчане!
Столкнулся с непонятной проблемой. Есть макрос, в котором формирование сводной таблицы было записано с помощью макридера.
Сам макрос написан под Win10, 64-бит, Offise2016. Всё работает. У клиента тоже самое на домашнем ПК - тоже всё работает.
А на рабочем ПК (всё тоже самое) ругается на формирование сводной таблицы. Ни кто случаем с такой проблемой не сталкивался?
Заранее благодарен за ответы.

Так рад бы, да отказывается прикреплять файл.

Не даёт прикрепить файл. Поэтому так.
Правильнее было бы при первом открытии применить  константу wdSeekFirstPageHeader
Так, моредатор недоволен форматированием. Я не знаю как правильно это сделать.
Поэтому кто успел, тот и скопировал. Код удалил.

Тема закрыта, сам разобрался.
Все участвующим в моей проблеме огромное спасибо!

Спасибо за подсказку. Но не очень спец в области работы с doc-документами. А можно поподробней?
В документе и правда разделов не оказалось. Как именно перейти можете подсказать?

спасибо за информацию. так оно вероятно и есть.
Но как перейти из первого верхнего колонтитула во второй верхний?
Не могу никак нигде найти. Обыскался уже.

Уточнение - речь о верхних колонтитулах идёт.

Что-то ругается VBA на данный код. Как-то и вариантов уже нет.
Выкладываю свой код, применительно уже к конкретной задачи и один доковский файл.
Как в нём можно активировать колонтитул на втором листе (хотя он активируется сразу при активации колонтитула на первом листе).
Не могу понять, в доковском файле я не вижу разрывов разделов, но колонтитулы разные - это как? Я с таким в первый раз сталкиваюсь.
Как достучаться до колонтитула на втором листе чтобы заменить часть текста (замена уже решена)?

Опять проблема возникла. В первом разделе документа в колонтитуле замену сделал.
А вот как перейти в колонтитул следующего раздела не могу найти.
Кто-нибудь сможет подсказать?
Заранее благодарен.

Тема закрыта. Разобрался сам. Кому нужно, см. в файлах.

Что самое интересное, что .Content.Find.Execute в тексте странице всё нормально заменяет.

Вот набросал макрос. Открывать для редактирования колонтитул открывает и закрывает.
А вот с заменой у меня что-то не так. Методы выполняет, а самой замены не выполняет.
.Content.Find.Execute тоже замены не делает. Сможет кто помочь?
Заранее благодарен.

Спасибо за участие в моей проблеме, но это не совсем то - это прога просто новый колонтитул вставляет.
А мне нужно чтобы в существующем файле Docx меняла часть текста.
Вот пример: из файла Книга1 нужно значение в ячейке А1 "12345" взять и заменит на него значение в колонтитуле "[1]"  в файле Doc2.xlsx

Библиотеку подключил. Макрос, записанный рекодером не работает в проекте VBA&Excel. Поэтому и вопрос задал.

не, не, не то. я уже достучался до этого. Всё нормально открываю. Это без проблем. А вот достучаться до колонтитула именно из Excel&VBa не получается. Не понимаю в чём проблема. Не понимаю как колонтитул открыть для редактирования. Рекодер из Word не помогает, т.к. он для VBA&Word. При чём колонтитул представляет из себя таблицу Word.

Доброй ночи форумчане!
Всё, я сломался. Пол дня уже ковыряюсь, но так и не смог найти того, что мне нужно.
Проблема: нужно из VBA-проекта в Excel-файле заменить известное словосочетание в верхнем колонтитуле уже имеющегося doc-документа. При чём в данном документе имеется два раздела и два разных колонтитула - верхних. Активация Word и открытие документа без вопросов, в том числе и разделов. Замена в тексте страницы тоже без проблем. Замена из VBA-проекта из Word - тоже без проблем. А вот из Excel-проекта - проблема. К поиску не отправляйте - отъимел уже наверно всё что можно в Инете, в т.ч. и майкрософт руководство. Код не выставляю, т.к. там уже полная каша. Ткните меня где найти ответ на мой вопрос или пример хотя бы какой скинте. Заранее буду благодарен.

Блин!!! Помогло! Огромное человеческое спасибо!
А не указывал лист потому, что открываемый файл содержит один лист и он по идее должен был быть сразу активен.