How to set Auto-Change letters into Uppercases for Data entry in E

C

Cpviv

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...
 
M

Mike H

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
 
C

Cpviv

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
 
M

Mike H

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top