Allow times OR certain text entries

  • Thread starter Horatio J. Bilge, Jr.
  • Start date
H

Horatio J. Bilge, Jr.

I have a range of cells that use the Time Quick Entry method from Chip
Pearson's website. I want to allow specific text entries ("DQ" or "DNS") but
I don't want to allow any other text entries. I added the following code to
allow the text, and convert it to all caps, but I'm not sure how to prevent
other text entries?

If Application.WorksheetFunction.IsText(Target.Value) = True Then
Application.EnableEvents = False
Target.Value = StrConv(Target.Value, vbUpperCase)
Application.EnableEvents = True
Exit Sub
End If

Thanks,
~ Horatio
 
T

Trevor Shuttleworth

Something like:

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.IsText(Target.Value) = True Then
Application.EnableEvents = False
Target.Value = StrConv(Target.Value, vbUpperCase)
If Target.Value <> "DQ" And Target.Value <> "DNS" Then
Target.Value = ""
End If
Application.EnableEvents = True
Exit Sub
End If
End Sub

Regards

Trevor
 
H

Horatio J. Bilge, Jr.

That is exactly what I was thinking of. I just wasn't sure exactly how to
code it. Thanks!
~ Horatio
 
T

Trevor Shuttleworth

You're welcome. Thanks for the feedback.


Horatio J. Bilge said:
That is exactly what I was thinking of. I just wasn't sure exactly how to
code it. Thanks!
~ Horatio
Click to expand...
 
Top