Text Function Proper

  • Thread starter Thread starter Kelly
  • Start date Start date
K

Kelly

I have a Excell spreadsheet of data, but the text is all
CAPITALS. I would like to change the text to Proper Text
using the proper function and I can for one cell at a
time, but is there anyway to make a template to just copy
data from spreadsheet to new template so I don't have to
copy text from each cell?
 
You could probably use a macro

Sub ChangetoProper()
Dim rng as Range, Cell as range
On Error Resume Next
set rng = Selection.SpecialCells(xlConstants,xlTextValues)
On Error goto 0
if not rng is nothing then
for each cell in rng
cell.Value = Strconv(cell.Text,vbProperCase)
Next
End if
End Sub


Place this in a general module, then select your range of cells and run the
macro (Tools=>Macro=>Macros)
 
You could try dabbling in VBA, or try setting up a worksheet populated with
proper functions referencing cells in the target sheet. If the sheet is
complex, it's worth using a Macro.
 
Back
Top