#1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1
Default Formatting text

I need to have any text entered into a cell automatically changed to all
captials.
Is that possible? If so can someone please send the steps.

Thank you
--
Tom
/
  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 29
Default Formatting text

Hi Tom

Assuming that your data start in cell A2, try using this formula and copy as
far down as your data is :
=UPPER(A2)
Does this do what you want?
--
HTH

Appreciate that you click the Yes button below if this posting is helpful

cheers, francis
"Tommy" wrote in message
...
I need to have any text entered into a cell automatically changed to all
captials.
Is that possible? If so can someone please send the steps.

Thank you
--
Tom
/



  #3   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 29
Default Formatting text

Hi Tom

you should enter the formula in B2 and copy down.

--
HTH

Appreciate that you click the Yes button below if this posting is helpful

cheers, francis
"Tommy" wrote in message
...
I need to have any text entered into a cell automatically changed to all
captials.
Is that possible? If so can someone please send the steps.

Thank you
--
Tom
/



  #4   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 5,934
Default Formatting text

To change the text that is typed into a cell to all upper case letters in
that same cell, you will need to use VB event code. Right click the tab at
the bottom of the worksheet you want this functionality on and select View
Code from the popup menu that appears. Then copy/paste the following code
into the code window that appeared when you did that...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
Dim UCaseRange As Range
Set UCaseRange = Range("A1:E5")
On Error GoTo CleanUp
Application.EnableEvents = False
If Selection.Count 1 Then
If Not Intersect(Selection, UCaseRange) Is Nothing Then
For Each C In Intersect(Selection, UCaseRange)
C.Value = UCase(C.Value)
Next
End If
ElseIf Not Intersect(Target, UCaseRange) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
CleanUp:
Application.EnableEvents = True
End Sub

You didn't tell us what cell or cells you wanted this functionality for, so
I guessed at A1:E5. That was probably an incorrect guess, so change the
"A1:E5" in the Set statement above to the actual range of cells you want to
do this for (make sure you retain the quote marks). Now, when you go back to
the worksheet, any text you type, copy or pasted into that range of cells
will be converted to upper case text.

--
Rick (MVP - Excel)


"Tommy" wrote in message
...
I need to have any text entered into a cell automatically changed to all
captials.
Is that possible? If so can someone please send the steps.

Thank you
--
Tom
/


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
copying text within a text box and losing formatting hokiefan1us Excel Discussion (Misc queries) 2 September 17th 08 08:41 PM
Formula Text String: Formatting Text and Numbers? dj479794 Excel Discussion (Misc queries) 5 June 30th 07 12:19 AM
Formatting Text mastermind Excel Worksheet Functions 2 January 5th 07 03:01 AM
Conditional Formatting based on text within a cell w/ text AND num Shirley Excel Worksheet Functions 2 December 22nd 06 01:40 AM
Conditional Formatting based on Text within Text George Lynch Excel Discussion (Misc queries) 3 May 5th 05 07:58 PM


All times are GMT +1. The time now is 03:55 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"