Автор Тема: Сверка данных книги excel  (Прочитано 101 раз)

Оффлайн Посетитель 06.06.2022

  • Посетитель форума
  • Сообщений: 3
Сверка данных книги excel
« : 07 Июнь 2022, 10:31 »
Добрый день!
Имеется следующая проблема - есть файл 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

Оффлайн Администратор

  • Administrator
  • Сообщений: 2029
Re: Сверка данных книги excel
« Ответ #1 : 08 Июнь 2022, 06:40 »
Если эта тема относится к этой же теме: https://forumvba.ru/index.php?topic=2124.0, то я вам написал письмо.