Hi,
I've created this MsgBox to show the results of a filter. Sadly my knowledge will only take me as far as counting all the rows up from the bottom including the blank ones! I have a header in row 3 so would like to count all only cells with information in them from cell A4 down to the last, could anyone help tweak my code to do this. Tank you all!
I've created this MsgBox to show the results of a filter. Sadly my knowledge will only take me as far as counting all the rows up from the bottom including the blank ones! I have a header in row 3 so would like to count all only cells with information in them from cell A4 down to the last, could anyone help tweak my code to do this. Tank you all!
Code:
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range
MsgBox rng.Columns(1). _
SpecialCells(xlCellTypeVisible).Count - 1 _
& " of " & Worksheets("jobs").Cells(Rows.Count, 1).End(xlUp).Row + 1 & " jobs are still unfinished and have passed their deadline!", vbCritical, "Uh oooh"