Modify and If statement

[Shadkng]

Hi, can someone revise my code below to also include NE to "yes" (lower case). Right now it only works with yes in upper case. Thanks

On Error Resume Next
If Evaluate("=VLOOKUP(FINALORDER!D4,DEALERLIST!$A$3:$O$1200,15,FALSE)") <> "YES" Then
Exit Sub
End If

 

[Momentman]

Maybe

On Error Resume Next
If Ucase(Evaluate("=VLOOKUP(FINALORDER!D4,DEALERLIST!$A$3:$O$1200,15,FALSE)") )<> "YES" Then
Exit Sub
End If

 

[thirty_two]

Well, since your Evaluate function seems to be returning a string, you should just be able to use the LCase function:

On Error Resume Next
If LCase(Evaluate("=VLOOKUP(FINALORDER!D4,DEALERLIST!$A$3:$O$1200,15,FALSE)")) <> "yes" Then
     Exit Sub
End If

Or, if you want to modify what you already have, you can use the UCase function instead:

On Error Resume Next
If UCase(Evaluate("=VLOOKUP(FINALORDER!D4,DEALERLIST!$A$3:$O$1200,15,FALSE)")) <> "YES" Then
     Exit Sub
End If

 

[Shadkng]

Maybe

On Error Resume Next
If Ucase(Evaluate("=VLOOKUP(FINALORDER!D4,DEALERLIST!$A$3:$O$1200,15,FALSE)") )<> "YES" Then
Exit Sub
End If

Perfect, Ucase works. Thanks

 

[Momentman]

Perfect, Ucase works. Thanks

You are welcome