F
Frank Kabel
Hi
could you post the complete event procedure. In your
posted part for example the application events are not
enabled after entering/changing cell values
own. When I add this other section of code, it causes my
uppercase code to work a little bit and then not at all.
I don't understand if the code is conflicting or what.
Any ideas would be great. Thanks. Matt
4:I4,C28:C30,E28:E30,G28:G30,I28:I30,K28:K30,M28:M30,O28:O3
0"), Target) _
bottom.")
bottom.")
could you post the complete event procedure. In your
posted part for example the application events are not
enabled after entering/changing cell values
the text in the range to uppercase. It works great on its-----Original Message-----
I have this code in the Worksheet_change sub to change
own. When I add this other section of code, it causes my
uppercase code to work a little bit and then not at all.
I don't understand if the code is conflicting or what.
Any ideas would be great. Thanks. Matt
("c13:c15,E13:e15,g13:g15,i13:i15,k13:k15,m13:m15,o1315,HUPPER CASE CODE:
On Error GoTo Error_handler
If Not Intersect(Range
4:I4,C28:C30,E28:E30,G28:G30,I28:I30,K28:K30,M28:M30,O28:O3
0"), Target) _
hours worked and reason on the overtime explanation at theIs Nothing Then
With Target
If Not .HasFormula Then
Application.EnableEvents = False
.Value = UCase(.Value)
End If
End With
End If
OTHER CODE:
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("C13:C15")) Is Nothing Then
Exit Sub
End If
With Target
If .Value = "AL" And Not IsEmpty(Range ("D10")) Then
MsgBox ("Please enter ADDHR = number of
bottom.")
hours worked and reason on the overtime explanation at theElseIf .Value = "HDAY" And Not IsEmpty(Range ("D10")) Then
MsgBox ("Please enter HOLWK = number of
bottom.")