auto caps lock

[ramzi]

hi,

how to set outo caps loc (beside turn on caps lock button) at sepcifiy cell.
if any latter enter into cell , he will change to caps lock .

rgds
ramzi

 

[Héctor Miguel]

hi, ramzi !

how to set outo caps loc (beside turn on caps lock button) at sepcifiy cell.
if any latter enter into cell, he will change to caps lock.

if available, try to change the font for your range/worksheet/workbook/style/...
(no other tricks/code/stuff/... needed)

this fonts shows text un uppercase:
- Castellar
- Engravers MT
- Felix Titling
- Stencil
- Technic (*versalles* type)

this font shows text in lowercase:
- Freshbot
- Poornut
- Pussycat

hth,
hector.

 

[Gord Dibben]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const WS_RANGE As String = "A1:A10" 'edit to suit
On Error GoTo ErrHandler
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Target.Formula = UCase(Target.Formula)
End If
ErrHandler:
Application.EnableEvents = True
End Sub

This is sheet event code. Right-click on the sheet tab and "View Code".

Copy/paste the above into the sheet module. Edot the range if need then
Alt + q to return to the Exel window.


Gord Dibben MS Excel MVP