Setting Field to All CAPS 1

[deintinis]

Is there a way to format cells so they appear in capital letters no matter how it is typed in?

 

[Hasit]

Use the upper function to raise caps of all text. E.g:

UPPER("total&quot equals "TOTAL"

If A1 contains "Hello", then:

UPPER(A1) equals "HELLO"

Although I am sure that you could create a custom format for cells that would raise the caps to uppercase.

I'll try and work on it if you need it.

 

[deintinis]

I am trying to figure out how to apply it to a set of cells. The only way I have found out to do it is by creating another column with the formula =UPPER(A1)and auto filling down. I would like to try to do it without adding the other column.

 

[Hasit]

OK, it looks like you need a custom type format. Let me try and work on it and let you have it asap.

 

[SkipVought]

Hi,

1. Select the cell tiy want to capitalize

2. run this macro

Sub UpCase()
    ActiveCell.Value = UCase(ActiveCell.Value)
End Sub

3. to do a range, you will have to write another macro to select each cell in the range.

 

[Hasit]

I couldn't get a decent custom format to work, but it looks like Skip's answer is the right one!

 

[deintinis]

Could I get a little help on writing a macro that will do the entire column at once.
Thanks

 

[SkipVought]

Here is a way,
1. highlight the data you want to capitalze
2. run the following code...

Sub CapRange()
    For Each cell In Selection
        cell.Select
        UpCase
    Next
End Sub

Sub UpCase()
    ActiveCell.Value = UCase(ActiveCell.Value)
End Sub

Skip,
metzgsk@voughtaircraft.com

 

[Dreamboat]

Nice, Skip. A star for you. And I'm stealing your code.

http://www.PiersonTech.com

dreamboat@nni.com
Brainbench MVP for Microsoft Word

 

[deintinis]

Skip,
I tried the code but got a compiler error. Any ideas?

 

[SkipVought]

you may need to ...
Dim cell as range Skip,
metzgsk@voughtaircraft.com