Application.CountIf not working the way it seems like it should

[Glory]

If Application.WorksheetFunction.CountIf(Range("C1:C27"), Cell) = 0 Then...

This condition does not trigger even when this returns a "0":

MsgBox Application.WorksheetFunction.CountIf(Range("C1:C27"), Cell)

How do I use CountIf with a condition in code?

 

[oCoCarbon]

Try one of these.

    If Application.WorksheetFunction.CountIf(Range("A1:A5"), "<>" & vbNullString) Then

    If Application.WorksheetFunction.CountIf(Range("A1:A5"), "<>" & "") Then

 

[Glory]

For Each Cell In Range("MyRange1")
 
    If Application.WorksheetFunction.CountIf(Range("MyRange2"), Cell) > 0 Then GoTo theNext
 
    i = i + 1
 
    Range("J" & i) = Cell
 
theNext:
 
Next

This worked exactly the way I thought it should last night. I dunno what was going wrong. Thanks anyway.

 

[oCoCarbon]

What exactly is the code supposed to do? As it stands, it loops through MyRange1, comparing it to MyRange2 (which I assume is a single cell?) and copies out the content of the cell if it doesn't match.

I would rewrite this to avoid the GoTo call.

    For Each Cell In Range("MyRange1")
 
    If Application.WorksheetFunction.CountIf(Range("MyRange2"), "<>" & Cell) Then
        i = i + 1
        Range("J" & i) = Cell
    End If
    Next