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
' 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