Passing Parameters Less Than Greater Than Or Equal To Not Equal To

[PcMax]

Hi,

I have a loop that checks for a sample:

If strTempAry(ciclo, 5) <= V_AV Then

If strTempAry(ciclo, 5) >= V_AV Then

Wonder if you can pass as a parameter in vba: "<", "<=", ">", ">=", "=", "<>"

Thanks in advance

[Excel Fox]

Try something like

Function CheckValues(varComp1 As Variant, varComp2 As Variant, strCheckString As String) As Boolean

    CheckValues = Application.Evaluate(varComp1 & strCheckString & varComp2)
    
End Function

Sub Test()

    MsgBox CheckValues(strTempAry(ciclo, 5), V_AV, "<=")
    
End Sub

[PcMax]

Hi,

Thanks for the suggestion, I did not know you could do it that way.
I was already thinking about how many lines of code I had applications for such a comparison when the policy is in a spreadsheet cell

If strTempAry(ciclo, 5) <= V_AV And strTempAry(ciclo, 6) >= V_AV Then