Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1
Default Changing text case in entire database column from JOHN to John

I need to change Upper text to Upper and lower text , example JOHN to John,
in entire column. First and last names are in seperate columns typed in excel
spreadsheet. This is for a mail merge.
  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 4,339
Default Changing text case in entire database column from JOHN to John

Look at PROPER function:

In helper column(s) put:

=PROPER(A2) assuming data in column A and copy down as required.

Then Copy & Paste Special=Values (the latter to either helper or original
column) and delete redundant column(s)

HTH

"Kimberly in Palm Springs" wrote:

I need to change Upper text to Upper and lower text , example JOHN to John,
in entire column. First and last names are in seperate columns typed in excel
spreadsheet. This is for a mail merge.

  #3   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 22,906
Default Changing text case in entire database column from JOHN to John

You can use the PROPER function.

Assume first names in Column A and last in Column B.

In C1 enter =PROPER(A1)

In D1 enter =PROPER(B1)

Selecy C1 and D1 then double-click on fill handle of D1.

When happy with results, copy columns C and D the, in place, Paste
SpecialValuesOKEsc.

Delete the original A and B columns.

OR you could use VBA to change all at once in place with no need for formulas.

Sub optProper_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 = Application.Proper(cell.Formula)
Next cell
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP


On Tue, 10 Oct 2006 10:18:01 -0700, Kimberly in Palm Springs <Kimberly in Palm
wrote:

I need to change Upper text to Upper and lower text , example JOHN to John,
in entire column. First and last names are in seperate columns typed in excel
spreadsheet. This is for a mail merge.


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
How to Convert Figures into Text in Excel m_azim1 Excel Worksheet Functions 3 April 5th 06 05:45 PM
Conversion of Numercials to Figure JAGANNATH Excel Worksheet Functions 1 April 4th 06 04:12 PM
Displays the number in text. (One thousand two hundred thirty four Ashish Patel Excel Worksheet Functions 1 March 20th 06 09:27 PM
VBA Monty Excel Worksheet Functions 2 January 30th 06 01:37 PM
convert numbers to text bellman Excel Discussion (Misc queries) 0 October 4th 05 10:28 PM


All times are GMT +1. The time now is 06:53 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"