| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Title Case Validation
How can I make sure that people enter information into a cell in Title Case?
|
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Title Case Validation
Hi,
Right click your sheet tab, view code and past this in. Text entered will be changed to proper Private Sub Worksheet_Change(ByVal Target As Range) Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Mike "jen2018" wrote: How can I make sure that people enter information into a cell in Title Case? |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Title Case Validation
Thanks but I only want Title Case in cells B6, E6, B9, E9 & B15. Is this
possible? "Mike H" wrote: Hi, Right click your sheet tab, view code and past this in. Text entered will be changed to proper Private Sub Worksheet_Change(ByVal Target As Range) Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Mike "jen2018" wrote: How can I make sure that people enter information into a cell in Title Case? |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Title Case Validation
Yes that's possible, try this
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Range("B6, E6, B9, E9 ,B15")) Is Nothing Then Target.Formula = WorksheetFunction.Proper(Target.Formula) End If End Sub Mike "jen2018" wrote: Thanks but I only want Title Case in cells B6, E6, B9, E9 & B15. Is this possible? "Mike H" wrote: Hi, Right click your sheet tab, view code and past this in. Text entered will be changed to proper Private Sub Worksheet_Change(ByVal Target As Range) Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Mike "jen2018" wrote: How can I make sure that people enter information into a cell in Title Case? |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Title Case Validation
maybe a bit to buggy, try this instead
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub "Mike H" wrote: Hi, Right click your sheet tab, view code and past this in. Text entered will be changed to proper Private Sub Worksheet_Change(ByVal Target As Range) Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Mike "jen2018" wrote: How can I make sure that people enter information into a cell in Title Case? |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Title Case Validation
Thanks, it worked perfectly
"Mike H" wrote: maybe a bit to buggy, try this instead Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub "Mike H" wrote: Hi, Right click your sheet tab, view code and past this in. Text entered will be changed to proper Private Sub Worksheet_Change(ByVal Target As Range) Target.Formula = WorksheetFunction.Proper(Target.Formula) End Sub Mike "jen2018" wrote: How can I make sure that people enter information into a cell in Title Case? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Title Case in Excel | Excel Discussion (Misc queries) | |||
| Title Case--No mail merge | Excel Discussion (Misc queries) | |||
| Change case from UPPER to Title Case?? | Excel Discussion (Misc queries) | |||
| How to change cell data from all upper to title case | Excel Discussion (Misc queries) | |||
| How to use formula auditing to change upper case to Title Case. | Excel Worksheet Functions | |||
Hybrid Mode
