Добрый день!
Имеется следующая проблема - есть файл excel, который выгружается из определенной системы и содержит набор строк, которые исторически отображают ряд параметров, например количество проданных товаров с описанием поставщиков, продавцов, номеров контрактов и стоимости нарастающим итогом за прошлый период. Если были продажи за вчерашний день, то такая строка в файле подсвечивается желтым цветом.
Данный выгруженный файл необходимо сверять и править с таким же файлом, но исправленным, так как ряд параметров выгружается неправильно, например номер контракта или какая-либо сумма. Есть макрос, который сверяет эти две книги, но проблема в том, что в случае новых продаж, то есть когда в выгруженном файле присутствует строка с желтой заливкой, то закрашиваются все строки, так как макрос далее видит расхождения по всем строка. Можно ли как-либо дописать или исправить макрос, чтобы он пропускал строки, выделенные желтой заливкой ? Буду признателен за помощь
Sub Sverka()
Dim myName As String, wB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Выберите фйал для сравнения"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myName = .SelectedItems(1)
End With
Application.ScreenUpdating = False
Workbooks.Open Filename:=myName: Set wB = Workbooks(ActiveWorkbook.Name)
Windows(ThisWorkbook.Name).Activate: ActiveSheet.Unprotect
numRow = InputBox("Укажите номер строки, с которой необходимо начать сравнение:", "Номер строки")
numCol = Cells.SpecialCells(xlLastCell).Column - 1
For i = numRow To Cells(Rows.Count, 1).End(xlUp).Row
For y = 1 To numCol
If Cells(i, y).Value <> wB.Sheets("Лист1").Cells(i, y) Then
wB.Sheets("Лист1").Cells(i, y).Interior.Color = 255
End If
Next
Next
ActiveSheet.Protect: Application.ScreenUpdating = True
End Sub
Если эта тема относится к этой же теме: https://forumvba.ru/index.php?topic=2124.0, то я вам написал письмо.