Count empty cell while filter is "ON"

[dineshkumar_kd]

Hi,

I am having a code to find the empty cell in the column "B",while filtering column "A". But code count till the end of the column. i want the count of empty cell till the data available in the column "A"

Please help.

Sub Countblanks()
On Local Error GoTo errors
Rows("2:2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$E$12").AutoFilter Field:=1, Criteria1:="dinesh"
Sheets(ActiveSheet.Index + 1).Range("A1").Value = _
WorksheetFunction.CountIf(Range("B:B"), "")
Exit Sub
errors:
MsgBox Err.Description
Err.Clear
End Sub

Thanks,
Dinesh

[rscsmith]

After the filter, you can do this with a worksheet function:
=SUBTOTAL(103,A3:A12)-SUBTOTAL(103,B3:B12)

Cheers, Rob.

[dineshkumar_kd]

After the filter, you can do this with a worksheet function:
=SUBTOTAL(103,A3:A12)-SUBTOTAL(103,B3:B12)

Cheers, Rob.

Hi Rob,


Thanks for the help... But data may change some time while filtering..

Regards,
Dinesh