Runtime error 13 Type mismatch or compile error

[Pookiemeister]

 Worksheets("Work Orders").Activate
    
'**********************************************************************************************************************************
    'Totals ALL Processing Work Orders
    Me.Label15.Caption = Application.WorksheetFunction.CountIf(Range("L:L"), "TPM Processing Technician (P4TPMPRO)")
    'Totals Closed Processing Work Orders
    Me.Label31.Caption = Application.WorksheetFunction.CountA(Filter("A:A", ("L:L" = "TPM Processing Technician (P4TPMPRO)") * ("R:R" = "Technically completed")))
'----------------------------------------------------------------------------------------------------------------------------------

Runtime error 13 Type mismatch occurs

 Me.Label31.Caption = Application.WorksheetFunction.CountA(Filter("A:A", ("L:L" = "TPM Processing Technician (P4TPMPRO)") * ("R:R" = "Technically completed"))))

So I then tried change the code to the following and still received the same error:

 Me.Label31.Caption = Application.WorksheetFunction.CountA(Filter(Range("A:A"), Range("L:L") = "TPM Processing Technician (P4TPMPRO)") * Range("R:R" = "Technically completed"))

Thank you

 

[Cubist]

There's a plural version of COUNTIF. Try:

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Work Orders")

Me.Label31.Caption = Application.WorksheetFunction.CountIfs( _
    ws.Range("L:L"), "TPM Processing Technician (P4TPMPRO)", _
    ws.Range("R:R"), "Technically completed")

 

[Domenic]

For your code to work, try...

    With Application.WorksheetFunction
        Me.Label31.Caption = .CountA(.Filter(Range("A:A"), Evaluate("(L:L=""TPM Processing Technician (P4TPMPRO)"")*(R:R=""Technically completed"")")))
    End With

Hope this helps!