Capital letters in a cell

Mar 5th, 2002, 08:48 AM

Is there a way to set a cell so that when you enter letters they are always in capital letter form?

AJ · Mar 5th, 2002, 08:54 AM

I don't know.
However, if there isn't a way then you could always just use the =UPPER() formula on the cells after they've been entered.

Hope this helps.

Steve Hartman · Mar 5th, 2002, 08:56 AM

You can use data validation to restrict the entry to upper case. This would not allow the user to enter a value until it was in upper case.

You can also input your own error message that tells them what to do.

[ This Message was edited by: Steve Hartman on 2002-03-05 07:57 ]

Marc · Mar 5th, 2002, 12:18 PM

You can modify this. Regards, Marc

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Target is an argument which refers to the range being changed
If Target.Column = 3 Then
'this check is to prevent the procedure from repeatedly calling itself
If Not (Target.Text = UCase(Target.Text)) Then
Target = UCase(Target.Text)
End If
End If
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 5th, 2002, 08:48 AM	#1
Guest Posts: n/a	Is there a way to set a cell so that when you enter letters they are always in capital letter form?

Mar 5th, 2002, 08:54 AM	#2
AJ Board Regular Join Date: Mar 2002 Location: =ActiveCell.Address Posts: 478	I don't know. However, if there isn't a way then you could always just use the =UPPER() formula on the cells after they've been entered. Hope this helps.

Mar 5th, 2002, 08:56 AM	#3
Steve Hartman Board Regular Join Date: Feb 2002 Location: Houston,Texas Posts: 418	You can use data validation to restrict the entry to upper case. This would not allow the user to enter a value until it was in upper case. You can also input your own error message that tells them what to do. [ This Message was edited by: Steve Hartman on 2002-03-05 07:57 ]

Mar 5th, 2002, 12:18 PM	#4
Marc Board Regular Join Date: Feb 2002 Posts: 383	You can modify this. Regards, Marc Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Target is an argument which refers to the range being changed If Target.Column = 3 Then 'this check is to prevent the procedure from repeatedly calling itself If Not (Target.Text = UCase(Target.Text)) Then Target = UCase(Target.Text) End If End If End Sub