| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
UPPER and Proper Case
Change I Not to If Not
-- Regards, Tom Ogilvy wrote in message ... Frank, I tried that but it gives me a syntex error on " Else I Not Application.Intersect(Target, Range("AC4) Is Nothing Then" line. Any suggestions? Thanks Tim -----Original Message----- Hi Tim only one procedure with the name worksheet_change is allowed per worksheet. So in your case try the following combined function (assumption A1 is your other cell): Private Sub Worksheet_Change(ByVal Target As Range) On Error goto CleanUp Application.EnableEvents = False If Not Application.Intersect(Target, Range("J4")) Is Nothing Then Target(1).Value = UCase(Target(1).Value) Else I Not Application.Intersect(Target, Range("A1) Is Nothing Then Target(1).Value = StrConv(Target(1).Value, vbProperCase) End If CleanUp: Application.EnableEvents = True End Sub HTH Frank Tim wrote: I've used the the following to format the one cell to change to upper case: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("J4")) Is Nothing Then Target(1).Value = UCase(Target(1).Value) End If Application.EnableEvents = True End Sub Now I need another cell, in the same Worksheet, to default to Proper Case. I tried copying and pasting the above, then changing: Target(1).Value = UCase(Target(1).Value) to Target(1).Value = StrConv(Target(1).Value, vbProperCase) But I get an error directed at the "Private Sub" line. Any suggestions? . |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I change from upper case to proper case in excel 2002 | Excel Discussion (Misc queries) | |||
| Changing Entries to Proper and Upper Case Q | Excel Worksheet Functions | |||
| excel'03 how to convert a column from upper case to proper case | Excel Discussion (Misc queries) | |||
| Excel: How do I change all upper case ss to proper case? | Excel Worksheet Functions | |||
| Changing Upper case to Proper Case | Excel Worksheet Functions | |||
Threaded Mode
