Home |
Search |
Today's Posts |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
copying text within a text box and losing formatting | Excel Discussion (Misc queries) | |||
Formula Text String: Formatting Text and Numbers? | Excel Discussion (Misc queries) | |||
Formatting Text | Excel Worksheet Functions | |||
Conditional Formatting based on text within a cell w/ text AND num | Excel Worksheet Functions | |||
Conditional Formatting based on Text within Text | Excel Discussion (Misc queries) |