Change Text Case to Upper in a cell range A2:A92

I have a workbook of Contacts. In column A there are Names. I wish to 
convert those to UPPER case. I've seen a few VB codes that change the case 
to UPPER if I change something in the cell, GREAT if I want to go through 
the entire Column and change something. But is there another way? 


0
candeman55 (25)
5/23/2007 12:37:06 AM
excel 39879 articles. 2 followers. Follow

8 Replies
593 Views

Similar Articles

[PageSpeed] 27


"Barry" wrote:

> I have a workbook of Contacts. In column A there are Names. I wish to 
> convert those to UPPER case. I've seen a few VB codes that change the case 
> to UPPER if I change something in the cell, GREAT if I want to go through 
> the entire Column and change something. But is there another way? 
> 
> 
> 
Use function =UPPER(A1) in a temporary column and then copy paste values to 
column A.
Does this help ?

0
gr8posts (17)
5/23/2007 1:15:00 AM
Afraid not! That's not much better than my explanation about having to 
change each cell manually. But thanks for the reply. 


0
candeman55 (25)
5/23/2007 1:26:21 AM
Further explanation to my requested code.

The following code does what I want only if I change something in each cell. 
My hope is to use code to automatically change the text in all cells in one 
effort.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TheCell As Range
Application.EnableEvents = False
For Each TheCell In Target
    If TheCell.HasFormula = False Then
        If Not Application.Intersect(TheCell, Range("A1:A10")) Is
Nothing Then
            TheCell.Value = UCase(TheCell.Value)
        End If
    End If
Next TheCell
Application.EnableEvents = True
End Sub


Cordially,
Chip Pearson


0
candeman55 (25)
5/23/2007 1:30:35 AM
If this is a one time thing, this may be the easiest suggestion that you get.

Maybe these links to Debra Dalgleish's site that shows how to fill a range would
make it easier.

http://contextures.com/xlDataEntry01.html#Quick
http://contextures.com/xlDataEntry01.html#Mouse

Barry wrote:
> 
> Afraid not! That's not much better than my explanation about having to
> change each cell manually. But thanks for the reply.

-- 

Dave Peterson
0
petersod (12004)
5/23/2007 1:43:38 AM
Barry

Sub optUpper_Click()
'David McRitchie, programming, 2003-03-07
Dim rng1 As Range, rng2 As Range, bigrange As Range
Dim cell As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    On Error Resume Next
    Set rng1 = Intersect(Selection, _
            Selection.SpecialCells(xlCellTypeConstants))
    Set rng2 = Intersect(Selection, _
            Selection.SpecialCells(xlCellTypeFormulas))
    On Error GoTo 0
    If rng1 Is Nothing Then
        Set bigrange = rng2
    ElseIf rng2 Is Nothing Then
        Set bigrange = rng1
    Else
        Set bigrange = Union(rng1, rng2)
    End If
    If bigrange Is Nothing Then
        MsgBox "All cells in range are EMPTY"
        GoTo done
    End If
    For Each cell In bigrange
        cell.Formula = UCase(cell.Formula)
    Next cell
done:
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub


Gord Dibben  MS Excel MVP

On Tue, 22 May 2007 20:30:35 -0500, "Barry" <candeman55@hotmail.com> wrote:

>Further explanation to my requested code.
>
>The following code does what I want only if I change something in each cell. 
>My hope is to use code to automatically change the text in all cells in one 
>effort.
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>Dim TheCell As Range
>Application.EnableEvents = False
>For Each TheCell In Target
>    If TheCell.HasFormula = False Then
>        If Not Application.Intersect(TheCell, Range("A1:A10")) Is
>Nothing Then
>            TheCell.Value = UCase(TheCell.Value)
>        End If
>    End If
>Next TheCell
>Application.EnableEvents = True
>End Sub
>
>
>Cordially,
>Chip Pearson
>

0
Gord
5/23/2007 2:56:34 AM
On Tue, 22 May 2007 20:30:35 -0500, Barry wrote in
microsoft.public.excel:

>Further explanation to my requested code.
>
>The following code does what I want only if I change something in each cell. 
>My hope is to use code to automatically change the text in all cells in one 
>effort.
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>Dim TheCell As Range
>Application.EnableEvents = False
>For Each TheCell In Target
>    If TheCell.HasFormula = False Then
>        If Not Application.Intersect(TheCell, Range("A1:A10")) Is
>Nothing Then
>            TheCell.Value = UCase(TheCell.Value)
>        End If
>    End If
>Next TheCell
>Application.EnableEvents = True
>End Sub

I may be missing something, but doesn't this trivial code do what you
want:

  Sub SelUCase()

  Dim rngCell As Range

  For Each rngCell In Selection
    rngCell = UCase(rngCell)
  Next rngCell

  End Sub

and then Alt+F8, or Menu: Tools/Macro/Macros..., or a button assigned to
the macro, to run it on the selected cells.

-- 
Michael Bednarek  http://mbednarek.com/  "POST NO BILLS"
0
ROT13-zo1 (25)
5/23/2007 4:24:55 AM
Try your code on a range with formulas and see what happens...


In article <12g753pn13t0sk57e61dj5skd8e67bi25r@4ax.com>,
 Michael Bednarek <ROT13-zo@gtz.pbz.nh> wrote:

> I may be missing something, but doesn't this trivial code do what you
> want:
> 
>   Sub SelUCase()
> 
>   Dim rngCell As Range
> 
>   For Each rngCell In Selection
>     rngCell = UCase(rngCell)
>   Next rngCell
> 
>   End Sub
> 
> and then Alt+F8, or Menu: Tools/Macro/Macros..., or a button assigned to
> the macro, to run it on the selected cells.
>
0
jemcgimpsey (6723)
5/23/2007 4:34:59 AM
On Tue, 22 May 2007 22:34:59 -0600, JE McGimpsey wrote in
microsoft.public.excel:

>Try your code on a range with formulas and see what happens...

Point taken (formulas are converted to values) - thanks; easily fixed:
  rngCell.Formula = UCase(rngCell.Formula)

OTOH:
  On Tue, 22 May 2007 19:37:06 -0500, Barry wrote in
  microsoft.public.excel:

  >I have a workbook of Contacts. In column A there are Names. I wish to
  >convert those to UPPER case.

>In article <12g753pn13t0sk57e61dj5skd8e67bi25r@4ax.com>,
> Michael Bednarek wrote:
>
>> I may be missing something, but doesn't this trivial code do what you
>> want:
>> 
>>   Sub SelUCase()
>> 
>>   Dim rngCell As Range
>> 
>>   For Each rngCell In Selection
>>     rngCell = UCase(rngCell)
>>   Next rngCell
>> 
>>   End Sub
>> 
>> and then Alt+F8, or Menu: Tools/Macro/Macros..., or a button assigned to
>> the macro, to run it on the selected cells.

-- 
Michael Bednarek   http://mbednarek.com/   "POST NO BILLS"
0
5/23/2007 8:55:46 AM
Reply:

Similar Artilces:

Text Shadow
I want to add a shadow to text in a cell. This shouldn't be complicated. The help section said to choose the Text Shadow button on the formatting bar. I don't see one. I tried to add/remove buttons from the bar it wouldn't let me into the bar to do anything. Any suggestions. I cannot imagine that Excel doesn't have a text shadow option. Thanks! Help section? That is for wordart, text boxes and pictures, for plain text there is none, why would it? -- Regards, Peo Sjoblom (No private emails please) "Natalie" <Natalie@discussions.microsoft.com> w...

External data link change
Hi, I've a sheet linked to an external data on the net, and I would like that a cell in this sheet to indicate the last date and time it was updated, the simplest way the better but I can do some programming too. Thanks for your attention, -- Domingos Junqueira No need of help any more, I solved the question. Thanks again ...

Import from Notepad delimited text
Is it possible to import from Notepad . There is a table with pipe delimiters that is automatically generated in a .dat text file using Notepad which I would like to import / link into my database daily. This .dat file arrives via email each day as an attachment. I tried saving the .dat file into a .txt extension but ACCESS wouldn't recognize it . I currently need to use the excel text wizard everyday to convert this file into an .xls format . I then have my access 2003 database linking to this ..xls file. Although I know how to convert this .dat file there are others ...

Why does the change change to a number?
Hi all, I've noticed something wierd and always wondered WHY it happens. When you type a date into a cell, and then change the Formatting of it to a 'general' cell, it turns into a number. How does it come up with that number? What is the significance? i.e. type today's date of "12/7/2007" - change it to a 'General' format, and it then says "39423". I'm a trainer of Excel and this question always comes up. I'm curious myself too. Thanks! Joe It's the number of days since January zero 1900 using Excel default for windows (M...

changing the way Excel displays selected cells
Is there a way to change the way Excel displays selected cells? I'm interested in viewing all the selected cells highlighted (with light blue for instance), but by default excel highlights all the cells but not the first one the same occurs when you define a range with no adyacents cells Your definition of the display is not quite correct. Excel highlights the current cell, Excel also highlights a selecte range. The currently selected cell is generally the first of a range, bu press enter and the current cell changes and becomes the second, the third etc in the range. You cannot...

Excel should have the option to merge contents when merging cells.
When Excel merges cells, it keeps only the upper-left-most contents and deletes the others. It would be nice to have the option (maybe a toggle button in the options menu) to concatenate the contents of all the merged cells, so that the information in the lower-right cells is tacked onto the end of the information inthe upper-left-most cell. This is not a big deal, but it would be a nice bell/whistle to save some steps. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I...

Track Changes
How do i remove the track changes in outlook? When i press "Enter", a symbol that represents "Enter" will appears. Same for space etc. ...

DST changes for Exchange 5.5
I noticed the 2007 DST Calendar Update "Exchange tool" is available now: http://support.microsoft.com/kb/930879 This will seemingly take care of calendars for mailboxes still on Exchange 5.5 servers, as Exchange 5.5 is listed as "compatible" . However would this address the CDO issues such as BlackBerry users and OWA users still on Exchange 5.5 ? Thanks in advance, Itrcb4 On Mon, 12 Feb 2007 14:31:00 -0800, itrcb4 <itrcb4@discussions.microsoft.com> wrote: >I noticed the 2007 DST Calendar Update "Exchange tool" is available now: > >http://su...

more on VBA function name change
I thought I'd start a new thread since I haven't received any replies to my first one... To recap: I've declared a function in a module using mixed case: Function TMDE_Category (FormName As Form) I noticed recently that it appeared in the module as Function tmde_category(FormName As Form) I changed it back to the mixed case declaration, saved the module, exited the app, reopened it and looked. The function had changed back to the all lowercase declaration. Things I've tried since the original post: Using the databse documenter, I selected all ob...

Can't Publish changes with Deploy Manager
After a migration process, I can't publish the changes made on CRM. When I try do this in Deploy Manager I get the follow error: ---------------------------------------------------------------------------- ----- Publish done with errors. See the event log to get deitails NETRA-INOVACAO: ***Error*** Failed to download XSL template files from Web Server ---------------------------------------------------------------------------- ----- Can somebody help me? I don't know if the migration process have any relationship with the error. Thank you for pay attention. []'s Vin´┐Żcius Pitta...

Convert dates stored as text
I have Excel 2007 in English, but I sometimes receive data that comes from another applicationes, so dates are stored as text because they come in following format: dd/mm/yyyy. And I have the format mm/dd/yyyy. So, in the same column, I have dates stored as dates, and dates stored as text. Which is the easiest way to convert them all to date format? Thanks in advance. Regards, Emece.- Be careful. I'd bet that those values that come in as real dates aren't what the original data represent. For instance, if you have two values: 25/12/2010 and 01/02/2010 The...

How to change icon for my application
Hi, I am currently developing an application on visual studio 6.0, and i wish to change the MFC icon on my application header. Anyone can help? Thank you. Raed Sawalha wrote: > Hi, I am currently developing an application on visual studio 6.0, and i > wish to change the MFC icon on my application header. Anyone can help? Thank > you. > > Open the icon resource for editing by double clicking. Then notice the control just above the editing grid that lets you switch between editing the large icon and editing the small one. -- Scott McPhillips [VC++ MVP] thanx that work...

Taking the Mode based on cell value
Could you provide a few more details about what you want to do? -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "sip8316" <sip8316@discussions.microsoft.com> wrote in message news:E3F4DE24-C5E8-4911-96E6-E61A1E56DEF0@microsoft.com... > ...

Border with text
I'm trying to make a border using text. I want to repeat the same phrase over and over again. Idealy, I'd like the words to make a rectangular border for a sign... and when it hit the corner of the page, the phrase would continue down the next angle, and so on, until it made a box. Does anyone have any ideas on how to do this? WordArt would be your only option. If you had a draw program... Serif has a free draw application. http://www.freeserifsoftware.com/ OpenOffice is free and has a draw feature. www.openoffice.org I have a method using WordArt on my web site that might be...

How to change newsgroup message font
Like many other ribbon based programs I sometimes struggle to find how to make a change. This time its how to change the font just for newsgroup messages? regards "nobody" wrote in message news:EWTao.39493$GF5.7129@hurricane... > Like many other ribbon based programs I sometimes struggle to find how to make a change. This time its how to change the font just for newsgroup messages? Newsgroup messages are usually plain text. The font used is that selected at [no name tab] > Options > Mail > Read > Fonts for the encoding specified for the messag...

How do I replace the last entire word in text cells?
I understand the REPLACE command but it seems restricted to characters or bytes. I this case, I want to replace the last word in all cells but the word is always different (ie. varying number of characters). Thanks in advance! Array entered (CTRL+SHIFT+ENTER), this will work: =LEFT(A1,LEN(A1)-MATCH(" ",MID(A1,LEN(A1)-ROW(INDIRECT("1:"&LEN(A1)))+1,1),0)) Change the reference to A1 to which ever cell you want. -- Regards, Dave "George" wrote: > I understand the REPLACE command but it seems restricted to characters or > bytes. I this case, I wan...

Notify change of email address when changing ISP
How do I notify my entire address book of an email address when I change ISP's? Thanks By sending a mail to everyone ? If you do so, please use BCC for the adresses, this way you won't spread everybody's e-mail adres to everybody. Niels Bob Baker wrote: > How do I notify my entire address book of an email address when I change ISP's? > Thanks ...

Change a formula to an acual number
I want to change the formula I have created to the number it has created Example: Cell A1 is the number 1. Cell A2 is the formula =a1+1 creatin the number 2. I want this to be a two not a formula. Any ideas? Laura, copy, then paste special, valves -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2000 & 97 ** remove news from my email address to reply by email ** "Laura" <anonymous@discussions.microsoft.com> wrote in message news...

Text Functions
I'm trying to split a text string ... Apart from it not working quite right yet! I'm sure I've over complicated it. Base Data "Path": \\SERVER\X$\data\Team Name\Personal Data\JOE BLOGGS\mail\ \\SERVER\X$\ \\SERVER\X$\RECYCLER\ \\SERVER\X$\$Extend\ \\SERVER\X$\$Extend\Test I'm trying to split into High Level Directory (HLD) / Team/User Directory (TUD) / Team/User Sub-Directory HLD: =IFERROR(SUBSTITUTE(LEFT(Path,(SEARCH("\",Path,(SEARCH("\",Path,(SEARCH("X$",Path,1))+3))+1))),"\\SERVER\X$\",""),SUBS...

How do I use cond format formula to set cell text and color?
Using MS Excel 2003: As and example, I entered into Conditional Format for cell B1: "Formula is", IF(A1="","Test",""). For true condition, the format is set to fill Yellow and font color red. I'm expecting cell B1 to display, "Test" in red text with yellow background when A1 is blank, but it does not work. No errors are displayed. Any ideas? in my experience you can only set the format,you cant have the word test show up.Apply the format condition only using =A1="" and put a seperate if statement in the cell.If it blank ...

Problem Changing an Investment Name
I am trying to change an investment name and Money 2006 tells me "The name or symbol 'TRP Spectrum Income' has already been used for a deleted investment. Please enter a different name." When I go to delete investments the name does not appear! Any ideas on how I get Money to accept the name change? This is the first time I have run into this situation and I have made numerous name changes in Money over the years. In microsoft.public.money, Ken wrote: >I am trying to change an investment name and Money 2006 tells me "The name >or symbol 'TRP Spec...

How to copy a column of values into another column where the cells are merged
Hi, I have a sheet with a column that lists some values. I also have a second sheet that has a column where the cells are merged every 4 rows. I need to copy the values of the first sheet into the merged cells, but when I do, I only see every fourth value on the merged cells. Is there a formula or any other way that I can use to be able to copy all the values from the first sheet into the second sheet each value on a different group of merged cells? Thanks! Assume you have values in A1:A5 of Sheet1 that you want to copy into Sheet2, where A1:A4, A5:A8, A9;A12 etc are merged. Put this formul...

Should I change this code?
Should I change 556 to 560???..............Thanks for your help..........Bob Private Sub Command560_Click() On Error GoTo Err_Command556_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmClientInfomation" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command556_Click: Exit Sub Err_Command556_Click: MsgBox Err.Description Resume Exit_Command556_Click End Sub On Sun, 15 Jul 2007 16:37:26 +1200, "Bob V" <rjvance@ihug.co.nz> wrote: > >Should I change 556 to 560???..............Thanks for your help.....

How to change default font in Outlook 2003
Can someone tell me how to change tthe default font in Outlook 2003 when composing a new email. It always comes up as Times New Roman. I remember somewhere that I specified that Outlook should use Word as the text editor and that seems to be the case. I have Arial as my default font in Word but this seems to make no difference when using Outlook. Hi, Please go to Tools > Setting > Mail Format > Stationery and Fonts > Fonts It's right there :) On 20 Nov 2005 06:28:45 -0800, amarsarit@gmail.com wrote: >Hi, >Please go to Tools > Setting > Mail Format > Statione...

icon changes with change of extension
when we change the extension of a file in windows, its icon also changes..... how does windows do tht. in my application i require a similar approach. i want the icon to be dependent on the file extension not on the attributes of the file. i have gone trough the registry but things are not very clear. Windows has listed all the file extensions avaliable there, but there is no general way to extract icons for those extension... kindly help icon changes with change of extension "Neelu" <nemesia31@gmail.com> wrote in message news:1161232739.720722.120950@b28g2000cwb.google...