Format text to ALL CAPS

[Rick M]

How do I Format a cell to either change any text to CAPS or require the User to input in CAPS?
Thanks.

 

[phantom1975]

If cell A1 has the following text: testing
And cell B1 has the following formula: upper(A1)
Then B1 will then say TESTING.

Does this help?

 

[texasalynn]

To get all upper case
=UPPER(A2)


HTH
texasalynn

 

[Aladin Akyurek]

On 2002-07-24 13:19, Rick M wrote:
How do I Format a cell to either change any text to CAPS or require the User to input in CAPS?
Thanks.

Rick,

You could use ASAP-Utilities for this, a free download from:

http://asap-utilities.com

Aladin

 

[IML]

One more option to have people enter upper case:

Use data validation. Select custom and enter the formula
=EXACT(A1,UPPER(A1))
for cell A1.

You can also add creative input and error messages here. Note, this will not stop someone from pasting in lower case values, but it will stop them from typing in lower case values.

 

[archerks]

If you want to do this with VB code paste the following in to worsheet VB section. This will capitalize in cells A1 to D10

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A1:D10")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

Dave

 

[DGBedard]

Hi All
Sorry to resurrect such an old thread but this is exactly what I am looking for but I cannot seem to get this to work.
Steps taken:
Open VBA pane by right clicking tab and clicking View Code
Copy/paste the code above vba pane
Change Range to be C4:C100 (I want only column c to have caps)
Type value in c 4 (or 5,6,7,etc.) but the letters remain lower case.

I have gone to the trust settings and set the Enable Macros but still nothing
Suggestions?

 

[steve the fish]

Go to VBA editor. Press view then immediate window. Paste in:

Application.EnableEvents = True

Press enter. Does it work now?

 

[Country Gal]

If you want to do this with VB code paste the following in to worsheet VB section. This will capitalize in cells A1 to D10

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A1:D10")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

Dave

Thank You, Dave! This worked exactly how I wanted. You made a beginner proud.

Country Gal

 

[rkoenig]

Sorry to resurrect this old thread again but I want to apply this to two separate ranges. How would I do this?

Thanks,