hi community,

how can i force a cell entry to have the text change to Uppercase?

any guidance much appreciated

10s community

:)
--
oldLearner57

Select the sheet tab which you want to work with. Right click the sheet tab
and click on 'View Code'. This will launch VBE. Paste the below code to the
right blank portion. Get back to to workbook and try out.

'The below code works on cell A1. modify to suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub

--
Jacob


"oldLearner57" wrote:

hi community,

how can i force a cell entry to have the text change to Uppercase?

any guidance much appreciated

10s community

:)
--
oldLearner57

Do you want this to happen to a specific cell, or to a specific range of
cells, or to any cell in the sheet? Jacob gave you a solution for one cell.
Come back and provide more info on what you want to do. HTH Otto

"oldLearner57" wrote in message
...
hi community,

how can i force a cell entry to have the text change to Uppercase?

any guidance much appreciated

10s community

:)
--
oldLearner57

10s! appreciated for the replied and it works!!
how then I can change to have the effect for say, example, to the whole
column?
I tried changed the .Address to ' .Range = "A1:A1" '
but i got an error.
can assist on this??

10s again

and 10s to community as well

Wish all a Blessed Merry X'mas
--
oldLearner57


"Jacob Skaria" wrote:

Select the sheet tab which you want to work with. Right click the sheet tab
and click on 'View Code'. This will launch VBE. Paste the below code to the
right blank portion. Get back to to workbook and try out.

'The below code works on cell A1. modify to suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub

--
Jacob


"oldLearner57" wrote:

hi community,

how can i force a cell entry to have the text change to Uppercase?

any guidance much appreciated

10s community

:)
--
oldLearner57

Range("A:A") Otto

"oldLearner57" wrote in message
...
10s! appreciated for the replied and it works!!
how then I can change to have the effect for say, example, to the whole
column?
I tried changed the .Address to ' .Range = "A1:A1" '
but i got an error.
can assist on this??

10s again

and 10s to community as well

Wish all a Blessed Merry X'mas
--
oldLearner57


"Jacob Skaria" wrote:

Select the sheet tab which you want to work with. Right click the sheet
tab
and click on 'View Code'. This will launch VBE. Paste the below code to
the
right blank portion. Get back to to workbook and try out.

'The below code works on cell A1. modify to suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub

--
Jacob


"oldLearner57" wrote:

hi community,

how can i force a cell entry to have the text change to Uppercase?

any guidance much appreciated

10s community

:)
--
oldLearner57