Count Errors

[billandrew]

Evening

Looking to Count errors in Column F. My attempt below.

Sub countErrors()    Dim lastRow As Long
    lastRow = Range("F" & Rows.Count).End(xlUp).Row
    Cells(1, 14) = Application.WorksheetFunction.Count. _
    Range("F2:F" & lastRow).SpecialCells(xlCellTypeFormulas, xlErrors)
    End Sub

 

[Caleeco]

Hey There,

You could try this instead:

Sub countErrors()
Dim lastRow As Long
    lastRow = Range("F" & Rows.Count).End(xlUp).Row
    Cells(1, 14) = Range("F2:F" & lastRow).SpecialCells(xlCellTypeFormulas, xlErrors).Count
End Sub

Let me know if it works for you
Thanks
Caleeco

 

[billandrew]

Works perfect.

Thank You sir

 

[Caleeco]

No Problem, thanks for letting me know.

Also can be done in one line if you're after brevity

Sub countErrors2()
    Cells(1, 14) = Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeFormulas, xlErrors).Count
End Sub

Regards
Caleeco

 

[billandrew]

Very Nice.

Thanks again Caleeco