| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Data Validation - Propercase
Hi
I have the following code and I am having difficulty in setting certain cells as Propercase. Not sure if this has any bearing but Cell E3 is actually E3:G3 merged as H3 is actually H3:J3 merged. Any help would be good. If Not Intersect(ActiveCell, Range("E3,H3,B6,E6,H6")) Is Nothing Then Exit Sub ElseIf EmptyRng(Sheets("Current Round").Range("E3,H3,B6,E6,H6")) Then Exit Sub Else '*****make the contents of cells E3, H3, E6, H6 - Propercase ******* End If TIA Sandy |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Data Validation - Propercase
If Not Intersect(Target, Range("E3,H3,B6,E6,H6")) Is Nothing Then
Exit Sub ElseIf EmptyRng(Sheets("Current Round").Range("E3,H3,B6,E6,H6")) Then Exit Sub Else Target.Value = Application.Proper(Target.Value) End If -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Sandy" wrote in message ... Hi I have the following code and I am having difficulty in setting certain cells as Propercase. Not sure if this has any bearing but Cell E3 is actually E3:G3 merged as H3 is actually H3:J3 merged. Any help would be good. If Not Intersect(ActiveCell, Range("E3,H3,B6,E6,H6")) Is Nothing Then Exit Sub ElseIf EmptyRng(Sheets("Current Round").Range("E3,H3,B6,E6,H6")) Then Exit Sub Else '*****make the contents of cells E3, H3, E6, H6 - Propercase ******* End If TIA Sandy |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Data Validation - Propercase
Excellent Bob
Thank you very much Sandy "Bob Phillips" wrote in message ... If Not Intersect(Target, Range("E3,H3,B6,E6,H6")) Is Nothing Then Exit Sub ElseIf EmptyRng(Sheets("Current Round").Range("E3,H3,B6,E6,H6")) Then Exit Sub Else Target.Value = Application.Proper(Target.Value) End If -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Sandy" wrote in message ... Hi I have the following code and I am having difficulty in setting certain cells as Propercase. Not sure if this has any bearing but Cell E3 is actually E3:G3 merged as H3 is actually H3:J3 merged. Any help would be good. If Not Intersect(ActiveCell, Range("E3,H3,B6,E6,H6")) Is Nothing Then Exit Sub ElseIf EmptyRng(Sheets("Current Round").Range("E3,H3,B6,E6,H6")) Then Exit Sub Else '*****make the contents of cells E3, H3, E6, H6 - Propercase ******* End If TIA Sandy |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Excel - stop automatically changing mixture of uppercase and lowercase to propercase | Excel Worksheet Functions | |||
| custom data validation on cells with data validation values | Excel Worksheet Functions | |||
| Crazy Data Validation ... List Validation Not Working | Excel Programming | |||
| Data validation with validation lists and combo boxs | Excel Discussion (Misc queries) | |||
| Format date in footer to propercase? | Excel Programming | |||
Linear Mode
