Formatting cells to input in Uppercase only?

[TonyW1234]

Hi All,

Is there anyway of restricting a cell so that the text has to be typed in in uppercase, I was thinking of using conditional formatting but unsure of how it'd work for this?

Any help would be much appreciated.

Thanks

Tony

 

[VoG]

Right click the sheet tab and select View Code. Paste in

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

then close the code window. Text entries will be capitalised automatically. It would be possible to restrict this to operate on only a defined range of cells if required.

 

[Oaktree]

You could also use data --> validation and specify to allow custom where the formula is =EXACT(A1,UPPER(A1))

 

[mikerickson]

Conditional formating with the formula

=EXACT(A1,UPPER(A1)) would do what you want.

This routine in the sheet's code module is much more user friendly

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count = 1 Then
    Target.Value = UCase(Target.Value)
End If
End Sub

 

[TonyW1234]

Thanks a lot for the help on this one! Thats a big help!

Cheers

Tony

 

[stanleydgromjr]

TonyW1234,

See:
Force Text to Upper Case or Proper Case.
http://www.ozgrid.com/VBA/force-case-text.htm


Have a great day,
Stan