View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default 1st letter upper case

The PROPER function is not meant to go into the source cell.

Say A1 contains ZIPPOMA

In B1 enter =PROPER(A1) to return Zippoma

Leave it there. Do not paste over A1 unless you copy B1 and paste values
onto A1

That's a problem with these types of Functions.........you need a helper
cell.

If you feel you are up to some VBA you could use event code behind the sheet
to change the cells as you type and enter the data.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column 3 Then Exit Sub 'adjust to suit
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = Application.Proper(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub

Right-click on the sheet tab and "View Code"

Copy/paste the above into that module.

Edit the range and Alt + q ro return to the Excel window.

Anything typed into columns A:C will be proper case.


Gord Dibben MS Excel MVP

On Tue, 14 Oct 2008 17:17:15 -0700, ZIPPOMA NEEDS HELP
wrote:

I am trying to have what ever is entered in a group of cells format the
same(1st letter upper case, rest lower) I have done =proper(a1) and pasted to
the proper cell. The problem is once I type something else in the cell it
reverts to normal.

Is there a way to make all future entries in the range of cells show as
proper format?