Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
All in CAPS! Help!
hello again
this problem im being told has no simple solution but im going to ask anyway this database we just bought came all in CAPS, however this information (including names, addresses, company names etc..) needs to be in the correct case for mailing purposes and formal letters does anyone have a solution or a tip or trick or anything that is less painful then retyping everything? THANKS IN ADVANCE!!! |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
All in CAPS! Help!
Use the PROPER() function.
If the string "ALL CAPS" was located in cell A1, =PROPER(A1) will output "All Caps" -- Regards, Dave "Miss Dedly" wrote: hello again this problem im being told has no simple solution but im going to ask anyway this database we just bought came all in CAPS, however this information (including names, addresses, company names etc..) needs to be in the correct case for mailing purposes and formal letters does anyone have a solution or a tip or trick or anything that is less painful then retyping everything? THANKS IN ADVANCE!!! |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
All in CAPS! Help!
Hi Miss Dedly
Look here http://www.mvps.org/dmcritchie/excel/proper.htm Or http://www.cpearson.com/excel/case.htm Here are some Macro's for changing text cells in the selection Sub Uppercase_macro() Dim selectie As Range Dim cel As Range On Error Resume Next Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _ .SpecialCells(xlCellTypeConstants, xlTextValues) If selectie Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each cel In selectie cel.Value = UCase(cel.Value) Next cel Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Lowercase_macro() Dim selectie As Range Dim cel As Range On Error Resume Next Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _ .SpecialCells(xlCellTypeConstants, xlTextValues) If selectie Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each cel In selectie cel.Value = LCase(cel.Value) Next cel Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Propercase_macro() Dim selectie As Range Dim cel As Range On Error Resume Next Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _ .SpecialCells(xlCellTypeConstants, xlTextValues) If selectie Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each cel In selectie cel.Value = StrConv(cel.Value, vbProperCase) Next cel Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Miss Dedly" wrote in message ... hello again this problem im being told has no simple solution but im going to ask anyway this database we just bought came all in CAPS, however this information (including names, addresses, company names etc..) needs to be in the correct case for mailing purposes and formal letters does anyone have a solution or a tip or trick or anything that is less painful then retyping everything? THANKS IN ADVANCE!!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change ALL CAPS to Initial Caps only? | Excel Worksheet Functions | |||
How can I convert all Caps to first letter caps in Excel? | Excel Worksheet Functions | |||
How do I make some columns all caps and others proper? | Excel Discussion (Misc queries) | |||
excel sheet all caps and needs to be only the first letter caps.. | Excel Discussion (Misc queries) | |||
Is there a way to have a function auto correct words in ALL CAPS . | Excel Worksheet Functions |