Capital Text

[reza]

Dear All,

if i write something in cell, how to make automatically become capital/upper
text.
i.e.
in A1...if i write family...i want automatically become FAMILY in that cell...

hoping one of you can help me

thanks

regards,
reza

 

[trip_to_tokyo]

Hi reza.

Turn you CAPS LOCK on on your keyboard.

On my keyboard, on the left hand side, there is a key called CAPS LOCK to
the left of the letter A.

Please hit Yes if my comments have helped.

Thanks.

 

[Jacob Skaria]

Hi Reza

To turn this to CAPS automatically you will need to use a VBA solution using
WorkSheet Change event.

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.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.HasFormula Then Target.Value = UCase(Target.Value)
End Sub

 

[Steve Audus, Chaucer BEC, Sheffield UK]

You can do it easily do it, if you don't mind your value appearing in a
different cell.

Use the formal =UPPER(Cell)

There is also =Lower(Cell)

There is also =Proper(Cell)

Hope this helps.
Steve

 

[reza]

JACOB...

thanks for ur response...
its work but when i want to delete text, there error and debug....

thanks anyway...

 

[Jacob Skaria]

OK. Try with the below

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.HasFormula And Target.Text <> "" Then
Target.Value = UCase(Target.Value)
End If
End Sub

 

[Trekman]

OK. Try with the below

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.HasFormula And Target.Text <> "" Then
Target.Value = UCase(Target.Value)
End If
End Sub

Did you try formatting all cells in the range with an "all caps" font,
like COPPERPLATE GOTHIC or ENGRAVERS MT?

 

[reza]

awesome...perfectly work...

thanks jacob

OK. Try with the below

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.HasFormula And Target.Text <> "" Then
Target.Value = UCase(Target.Value)
End If
End Sub

 

[reza]

Jacob...

sorry...when i input numeric there were error again...
can you fix it again, please

so many thanks

reza