Results 1 to 4 of 4
  1. #1
    Star Lounger
    Join Date
    May 2001
    Posts
    50
    Thanks
    0
    Thanked 0 Times in 0 Posts

    changin case in a cell (Office 97 SR2)

    Hi all

    I have a spreadsheet of information and one column of info has been entered in upper case when I need it to be sentence case. Can anyone let me know if there is a way of changing the case other than retyping the whole lot.

    Thanks in advance

  2. #2
    3 Star Lounger
    Join Date
    May 2002
    Location
    Mpls, Minnesota, USA
    Posts
    271
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: changin case in a cell (Office 97 SR2)

    Boyley,

    Yes. You can put a formula in a blank column that will convert the text to proper case.
    If the text is in column A (starting in row 1) and column D is blank, enter the following formula in column D.
    =Proper(A1) then copy this formula down to convert all the entries in column A.
    Press F9 to calculate the workbook.
    You will probably want to convert the formulas to values after they are calculated.
    Select all the formulas and press Ctrl C (copy), then select the top cell where you want the converted text to appear and choose Edit >
    Paste Special > Values.
    Hope this helps.

    Chuck
    Chuck Reimer
    I'm from the Government and I'm here to help...

  3. #3
    Platinum Lounger
    Join Date
    Jan 2001
    Posts
    3,788
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: changin case in a cell (Office 97 SR2)

    You might want to consider the free add-in ASAP utilities which allows you to do this sort of thing (along with over 300 other tasks) very easily.

  4. #4
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Adelaide, South Australia, Australia
    Posts
    387
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: changin case in a cell (Office 97 SR2)

    Select the cells you want to change, then run the following macro:

    Sub Proper()

    For Each cel In Selection
    gg = cel.Value
    cel.Value = "=Proper(""" & gg & """)"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    Next cel

    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •