Add second criteria to VBA check IF/then statement

[ItalianPlatinum]

I am looking to add a second criteria to the solution I was provided. I thought this could work but I get an error code. Would someone be able to see what I am doing wrong? Below is an example of my data.

VBA to check if today's date in range if not skip

I am looking for a line of code to stop my exiting code from running if it cannot find today's today in YYYYMMDD format in column B.

www.mrexcel.com

'check if any dates and records in H in order to evaluate if not end sub
If Application.WorksheetFunction.CountIf(WsDIST.Range("B:B")) = 0 And WsDIST.Range("H" & rows.count).End(xlUp).row <= 1 Then

 

[Artik]

In the CountIf function, you are missing a counting criterion after WsDIST.Range(“B:B”).

Artik

 

[ItalianPlatinum]

Thanks Let me adjust. Not sure why that got dropped

 

[Artik]

I don't know either.

Artik

 

[ItalianPlatinum]

Okay got it but one issue. I need the second part of the code to be if anything in column C <> YY or ZZ. So If Column B doesn't equal today's date (WORKS) and doesn't equal YY or ZZ (NEW). Replacing the H criteria.

d = Format(Date, "yyyymmdd") + 0

'check if any ex dates to evaluate if not end sub
If Application.WorksheetFunction.CountIf(WsDIST.Range("B:B"), d) = 0 And WsDIST.Range("H" & rows.count).End(xlUp).row <= 1 Then

 

[Artik]

The following condition is:
There is no today's date in column B AND there is no “YY” in column C AND there is no “ZZ” in column C.

    Dim d As Long
    Dim WF As WorksheetFunction
    Dim lRow As Long

    Set WF = Application.WorksheetFunction

    d = Format(Date, "yyyymmdd") + 0
    lRow = WsDIST.Range("H" & Rows.Count).End(xlUp).Row

    If WF.CountIf(WsDIST.Range("B1:B" & lRow), d) = 0 And WF.CountIf(WsDIST.Range("C1:C" & lRow), "YY") = 0 And WF.CountIf(WsDIST.Range("C1:C" & lRow), "ZZ") = 0 Then
    '(...)
    End If

Artik

 

[ItalianPlatinum]

I think I may have miss explained it so my bad in advance. Say if Column B has today's date, but it doesn't contain YY or ZZ in column C then it should trigger the warning of no activity. If today's date is in column B with a YY or ZZ then it should proceed to my else statement.

d = Format(Date, "yyyymmdd") + 0
Set WF = Application.WorksheetFunction
lRow = WsDIST.Range("H" & rows.count).End(xlUp).row

'check if any activity if not kick a warning
If WF.CountIf(WsDIST.Range("B1:B" & lRow), d) = 0 And WF.CountIf(WsDIST.Range("C1:C" & lRow), "YY") = 0 And WF.CountIf(WsDIST.Range("C1:C" & lRow), "ZZ") = 0 Then

With WsRUN
    .Activate
End With
   
MsgBox "No Activity Today"
   
Else