| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
How do I set all caps as the default?
I want to set my worksheet up so that all text entered is in caps. I do not
want to have to toggle the Caps Lock key to do this. Is there a way to make this work? |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
How do I set all caps as the default?
Mark,
There are VB solutions to this but as you want all caps then pressing the capslock key once doesn't seem to onerous. Mike "Mark Barnard" wrote: I want to set my worksheet up so that all text entered is in caps. I do not want to have to toggle the Caps Lock key to do this. Is there a way to make this work? |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
How do I set all caps as the default?
Hi Mike,
Thank you for your post. I agree, however, this is not what the user wants. I am a long way from an expert in VB, so any help/advice/expertise you might have would be appreciated. Thanks! Respectfully, Mark "Mike H" wrote: Mark, There are VB solutions to this but as you want all caps then pressing the capslock key once doesn't seem to onerous. Mike "Mark Barnard" wrote: I want to set my worksheet up so that all text entered is in caps. I do not want to have to toggle the Caps Lock key to do this. Is there a way to make this work? |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
How do I set all caps as the default?
Mark,
Right click your worksheet, view code and paste this in Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range On Error Resume Next Application.EnableEvents = False For Each MyRange In Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Cells If Err.Number = 0 Then MyRange.Value = StrConv(MyRange.Text, vbUpperCase) End If Next MyRange Application.EnableEvents = True End Sub Mike "Mark Barnard" wrote: Hi Mike, Thank you for your post. I agree, however, this is not what the user wants. I am a long way from an expert in VB, so any help/advice/expertise you might have would be appreciated. Thanks! Respectfully, Mark "Mike H" wrote: Mark, There are VB solutions to this but as you want all caps then pressing the capslock key once doesn't seem to onerous. Mike "Mark Barnard" wrote: I want to set my worksheet up so that all text entered is in caps. I do not want to have to toggle the Caps Lock key to do this. Is there a way to make this work? |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
How do I set all caps as the default?
Hi Mike,
Thanks for this. Stupid question #3: Right click exactly where? I do not find "View Code". Sorry... Thanks... Mark "Mike H" wrote: Mark, Right click your worksheet, view code and paste this in Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range On Error Resume Next Application.EnableEvents = False For Each MyRange In Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Cells If Err.Number = 0 Then MyRange.Value = StrConv(MyRange.Text, vbUpperCase) End If Next MyRange Application.EnableEvents = True End Sub Mike "Mark Barnard" wrote: Hi Mike, Thank you for your post. I agree, however, this is not what the user wants. I am a long way from an expert in VB, so any help/advice/expertise you might have would be appreciated. Thanks! Respectfully, Mark "Mike H" wrote: Mark, There are VB solutions to this but as you want all caps then pressing the capslock key once doesn't seem to onerous. Mike "Mark Barnard" wrote: I want to set my worksheet up so that all text entered is in caps. I do not want to have to toggle the Caps Lock key to do this. Is there a way to make this work? |
|
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
How do I set all caps as the default?
Right-click on the sheet tab and "View Code"
Paste the code into that sheet module. Alt + q to return to the sheet window. Gord Dibben MS Excel MVP On Mon, 10 Dec 2007 07:14:06 -0800, Mark Barnard wrote: Hi Mike, Thanks for this. Stupid question #3: Right click exactly where? I do not find "View Code". Sorry... Thanks... Mark "Mike H" wrote: Mark, Right click your worksheet, view code and paste this in Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range On Error Resume Next Application.EnableEvents = False For Each MyRange In Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Cells If Err.Number = 0 Then MyRange.Value = StrConv(MyRange.Text, vbUpperCase) End If Next MyRange Application.EnableEvents = True End Sub Mike "Mark Barnard" wrote: Hi Mike, Thank you for your post. I agree, however, this is not what the user wants. I am a long way from an expert in VB, so any help/advice/expertise you might have would be appreciated. Thanks! Respectfully, Mark "Mike H" wrote: Mark, There are VB solutions to this but as you want all caps then pressing the capslock key once doesn't seem to onerous. Mike "Mark Barnard" wrote: I want to set my worksheet up so that all text entered is in caps. I do not want to have to toggle the Caps Lock key to do this. Is there a way to make this work? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I set caps lock as default? | Excel Worksheet Functions | |||
| How do I set default for a column so that first letters are caps? | New Users to Excel | |||
| How to change ALL CAPS to Initial Caps only? | Excel Worksheet Functions | |||
| How can I convert all Caps to first letter caps in Excel? | Excel Worksheet Functions | |||
| excel sheet all caps and needs to be only the first letter caps.. | Excel Discussion (Misc queries) | |||
Hybrid Mode
