计算空单元格的动态范围

Question

To define the range for my For loop i use a Match function to locate the first row containing a specific string. This works fine and I would like to combine this with the number of empty cells in that Range using the WorksheetFunction.CountBlank

I set up this code to return the corresponding row:

iCounterFilled01 = 0
On Error Resume Next
iCounterFilled01 = Application.WorksheetFunction.Match("Date", wksSource01.Range("A:A"), 0)
On Error GoTo 0

Using this i am trying to return the number of empty cells within this Range

iEmptyCells01 = WorksheetFunction.CountBlank_
(wksSource01.Range(wksSource01.Cells(1, 1)), wksSource01.Cells(iCounterFilled01, 8))

This however returns the error "incorrect amount of arguments or incorrectly assigned property".

Help would be greatly appreciated, thanks

Answer 1

You have a misplaced parenthesis before the comma inside the parameter of the CountBlank , replace this:

WorksheetFunction.CountBlank(wksSource01.Range(wksSource01.Cells(1, 1)), wksSource01.Cells(iCounterFilled01, 8))

with this

WorksheetFunction.CountBlank(wksSource01.Range(wksSource01.Cells(1, 1), wksSource01.Cells(iCounterFilled01, 8)))