If not 100% Then...

[Kentetsu]

Okay,

It sure seems like this should be simple. I've got an entry form, where the user will enter audit information. If the score for the audit is less than 100%, then they need to enter a reason for the failure. However, the code below will still pop the message even if the score is 100%.

I think this is because K4 is formatted as a percentage so that it will show the user what the final audit score was. If I format it as just a number then it works fine. But I'd rather have the user see this as a percentage.

Any suggestions?

If Sheets("ObsEntry").Range("K4").Value < 100 Then
    If Sheets("ObsEntry").Range("J4") = "" Then
        MsgBox "Please enter a Comment Explaining Failed Checks", vbOKOnly
        Exit Sub
    End If
End If

Thanks!

 

[Dave Patton]

should the part " < 100 Then" be < 1
N.B. 100% = 1

 

[Kentetsu]

Well slap my *** and call me Sally! I just knew it'd be something simple like that. Thanks a bunch Dave Patton!

 

[Dave Patton]

Thanks for the feedback. Dave