IsError_Range

Checks if range has at least one error in a range of cells
Fast, and simple

CodeFunctionName
What is this?

Public

Tested

Original Work
Function IsError_Range(ColumnName, Optional WB = "This", Optional Shee = "Active", Optional StartFromRow = 1)
    ' Checks if range has at least one error
    ' Returns 0 if no cell has error
    ' Returns 1 if at least one cell has error
    '
    If WB = "This" Then WB = ThisWorkbook.Name
    If WB = "Active" Then WB = ActiveWorkbook.Name
    If Shee = "Active" Then Shee = ActiveSheet.Name
    If ColumnName = "" Then ColumnName = "A"
    Rett = 0 ' assume no error
    Set SearchRR = Workbooks(WB).Worksheets(Shee).Range(ColumnName & 1).EntireColumn
    On Error Resume Next
    Rett = WorksheetFunction.Sum(SearchRR)
    If Err.Number < > 0 Then Rett = 1 ' We got an error
    On Error GoTo 0
    IsError_Range = Rett
End Function

ColumnName, Optional WB = "This", Optional Shee = "Active", Optional StartFromRow = 1

Views 79

Downloads 29

CodeID
DB ID

ANmarAmdeen
602
Attachments
Revisions

v1.0

Thursday
December
30
2021