Function CountIF Error 1004

**cocacrave** · 05-06-2015, 04:40 PM

Hi,
I am getting error 1004: Unable to get countif property of the worksheetfunction class?

    Dim rngCard As Range
    Set rngCard = ActiveCell
    
    Dim rngPlus As Range
    Dim cntPlus As Long
    Set rngPlus = Range("BN5:CL5, BN7:CL7, BN9:CL9, BN11:CL11")
    cntPlus = Application.WorksheetFunction.CountIf(rngPlus, "+")

I assumed this will work because before I had:

    Dim rngCard As Range
    Set rngCard = ActiveCell
    
    Dim rngPlus As Range
    Dim cntPlus As Long
    Set rngPlus = Range("BN5:CL5, BN7:CL7, BN9:CL9, BN11:CL11")
    cntPlus = Application.WorksheetFunction.CountA(rngPlus)

However, it does not work. How do I get countif to work? Please help.

**JieJenn** · 05-06-2015, 04:48 PM

Maybe

Sub Test()
    Dim rngPlus As Range
    Dim cell As Range
    Dim xCount As Integer
    
    xCount = 0
    
    Set rngPlus = Range("BN5:CL5, BN7:CL7, BN9:CL9, BN11:CL11")
    
    For Each cell In rngPlus
        If cell.Value = "+" Then
            xCount = xCount + 1
        End If
    Next cell
    
    MsgBox xCount
End Sub