Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How to set Auto-Change letters into Uppercases for Data entry in E
Hi,
I need help here. Here is the scenario. When I type alphabets in lower cases at each cell, I need the cell to auto-change the alphabets to upper cases. I do not want to use the Caps Lock button from the keyboard. Help... -- Thank you, Cpviv |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How to set Auto-Change letters into Uppercases for Data entry in E
Hi,
Right click your sheet tab, view code and paste this in. It works on the entire sheet so if you want it limited to a certain range then post back Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Not IsNumeric(Target) Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub Mike "Cpviv" wrote: Hi, I need help here. Here is the scenario. When I type alphabets in lower cases at each cell, I need the cell to auto-change the alphabets to upper cases. I do not want to use the Caps Lock button from the keyboard. Help... -- Thank you, Cpviv |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How to set Auto-Change letters into Uppercases for Data entry
Hi Mike,
It works! Ok, you are right. I have many columns fill with data. How to set one column with Uppercases, one column with Propercases, one column with the first letter starts with Capital letter, and the rest of columns leave as they are. Cpviv "Mike H" wrote: Hi, Right click your sheet tab, view code and paste this in. It works on the entire sheet so if you want it limited to a certain range then post back Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Not IsNumeric(Target) Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub Mike "Cpviv" wrote: Hi, I need help here. Here is the scenario. When I type alphabets in lower cases at each cell, I need the cell to auto-change the alphabets to upper cases. I do not want to use the Caps Lock button from the keyboard. Help... -- Thank you, Cpviv |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How to set Auto-Change letters into Uppercases for Data entry
Hi,
This is set up to work on columns 1,2 & 3 for Upper Proper and Lower cases Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Not IsNumeric(Target) Then Application.EnableEvents = False If Target.Column = 1 Then 'Column A Target = StrConv(Target, vbUpperCase) ElseIf Target.Column = 2 Then Target = StrConv(Target, vbProperCase) ElseIf Target.Column = 3 Then Target = StrConv(Target, vbLowerCase) End If Application.EnableEvents = True End If End Sub Mike "Cpviv" wrote: Hi Mike, It works! Ok, you are right. I have many columns fill with data. How to set one column with Uppercases, one column with Propercases, one column with the first letter starts with Capital letter, and the rest of columns leave as they are. Cpviv "Mike H" wrote: Hi, Right click your sheet tab, view code and paste this in. It works on the entire sheet so if you want it limited to a certain range then post back Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Not IsNumeric(Target) Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub Mike "Cpviv" wrote: Hi, I need help here. Here is the scenario. When I type alphabets in lower cases at each cell, I need the cell to auto-change the alphabets to upper cases. I do not want to use the Caps Lock button from the keyboard. Help... -- Thank you, Cpviv |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to change small letters to capital letters | Excel Discussion (Misc queries) | |||
How do change a column of data in capitol letters to small letters | Excel Discussion (Misc queries) | |||
change lower letters to upper letters | Excel Discussion (Misc queries) | |||
Auto date entry for status change | Excel Discussion (Misc queries) | |||
Auto change font to 'capital letters' | Excel Worksheet Functions |