'Запускаем макрос при изменении ячеек 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

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

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

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

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

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

Коллеги, что за ерунда? Первый раз с таким столкнулся. Не могу понять, почему не срабатывает Rows("4:100").Select ?
Заранее благодарен за помощь.