在表格中逐行“直到”直到在VBA中找到第一个有色单元格？

Question

I have a table in excel with 7 columns users can place their inputs. After placing their inputs, they have a validation macro to run, which colors the cells with invalid values to red. I want to create a summary sheet about these errors after this coloring with VBA macro, but only if there are any colored cell in the table. If there is at least one red cell somewhere in the table range, this summary sheet should be created, else a MsgBox should pop up telling that there were no errors. I want to create the easiest way to do that, something like this: The problem is with this I got the "Validation errors found, please check the Errors sheet" message, even if I do not have red cells.

Sub errorListCreation(Sheet1 As Worksheet)
Dim isColored As Boolean
isColored = False
    For Each Acell In Sheet1.Range("A2", Range("K" & Sheet1.usedRange.Rows.Count))
        With Acell
            If Acell.DisplayFormat.Interior.Color = RGB(255, 0, 0) Then
                isColored = True
                Exit For
            End If
        End With
    Next Acell

    If isColored = True Then
        MsgBox "Validation errors found, please check the Errors sheet. "
        For Each errorList In Worksheets
            If errorList.Name = "Errors" Then
                Application.DisplayAlerts = False
                Sheets("Errors").Delete
                Application.DisplayAlerts = True
            End If
        Next
        Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Errors"
    Else: MsgBox "Validation complete, please check the reconciliation sheet."
    End If
End Sub

Answer 1

I suggest something like that:

Option Explicit

Public Function IsColored(ByVal Rng As Range) As Boolean
    IsColored = (Rng.Interior.Color = RGB(255, 0, 0))
End Function

Public Sub ColorFinder(ByVal ws As Worksheet)
    Dim ErrorFound As Boolean

    Dim InputTable As ListObject
    Set InputTable = ws.ListObjects("Table4") 'probably no good idea to hard code the table name (at least use a meaningful name)

    With InputTable.DataBodyRange
        Dim iRow As Long, iCol As Long
        For iRow = .Rows.Count To 1 Step -1
            For iCol = .Columns.Count To 1 Step -1
                If IsColored(.Cells(iRow, iCol)) Then
                    ErrorFound = True
                    Exit For
                End If
            Next iCol
            If ErrorFound Then Exit For
        Next iRow
    End With

    If ErrorFound Then
        MsgBox "Errors found", vbCritical
    Else
        MsgBox "No errors found", vbInformation
    End If
End Sub

Sub test()
    ColorFinder Worksheets("Sheet1")
End Sub

On the following sheet

^{Image 1: Assume the above worksheet "Sheet1" with a ListObject "Table4".}

you will get

"Errors found"