ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Formatting text (https://www.excelbanter.com/excel-discussion-misc-queries/215098-formatting-text.html)

Tommy[_5_]

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
/

xlm[_2_]

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
/




xlm[_2_]

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
/




Rick Rothstein

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
/




All times are GMT +1. The time now is 08:56 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com