Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Anthony
 
Posts: n/a
Default Auto change font to 'capital letters'

Hi,
is it possible to change data entered into any cell so that it appears as
CAPITAL LETTERS without actualy placing a formula (=UPPER(A2) into each cell.
I want this to apply to the whole worksheet.

thanks
  #2   Report Post  
Jason Morin
 
Posts: n/a
Default

Right-click the worksheet tab, select View Code, and
insert the code below:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
With Target
If .Count = 1 Then
.Value = UCase(.Value)
End If
End With
Application.EnableEvents = True
End Sub

---
Press ALT+Q to close and return to XL.

HTH
Jason
Atlanta, GA

-----Original Message-----
Hi,
is it possible to change data entered into any cell so

that it appears as
CAPITAL LETTERS without actualy placing a formula (=UPPER

(A2) into each cell.
I want this to apply to the whole worksheet.

thanks
.

  #3   Report Post  
Anthony
 
Posts: n/a
Default

Jason
,thanks for your help , I had to adjust it a little but it works fine,
regards
Anthony


"Jason Morin" wrote:

Right-click the worksheet tab, select View Code, and
insert the code below:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
With Target
If .Count = 1 Then
.Value = UCase(.Value)
End If
End With
Application.EnableEvents = True
End Sub

---
Press ALT+Q to close and return to XL.

HTH
Jason
Atlanta, GA

-----Original Message-----
Hi,
is it possible to change data entered into any cell so

that it appears as
CAPITAL LETTERS without actualy placing a formula (=UPPER

(A2) into each cell.
I want this to apply to the whole worksheet.

thanks
.


  #4   Report Post  
Ken Wright
 
Posts: n/a
Default

Is there any chance you will enter any formulas on this page at all? If so
then you need to catch those and not convert them else you will lose the
formulas as soon as you hit ENTER, so with a slight addition to Jason's code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
With Target
If .Count = 1 And .HasFormula = False Then
.Value = UCase(.Value)
End If
End With
Application.EnableEvents = True
End Sub

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------

"Anthony" wrote in message
...
Jason
,thanks for your help , I had to adjust it a little but it works fine,
regards
Anthony


"Jason Morin" wrote:

Right-click the worksheet tab, select View Code, and
insert the code below:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
With Target
If .Count = 1 Then
.Value = UCase(.Value)
End If
End With
Application.EnableEvents = True
End Sub

---
Press ALT+Q to close and return to XL.

HTH
Jason
Atlanta, GA

-----Original Message-----
Hi,
is it possible to change data entered into any cell so

that it appears as
CAPITAL LETTERS without actualy placing a formula (=UPPER

(A2) into each cell.
I want this to apply to the whole worksheet.

thanks
.




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
change font in a forms control combo box JRTB Excel Discussion (Misc queries) 3 February 25th 09 10:34 PM
change font when sheet is protected vivisss Excel Discussion (Misc queries) 1 February 7th 05 08:54 PM
How do I get the font color to change automatically depending on gtcarlsbad Excel Discussion (Misc queries) 2 February 1st 05 03:39 AM
How to change the default font and size of "comments"? ClayMcQ Excel Discussion (Misc queries) 1 January 8th 05 12:43 AM
Change Font Size Steve Klenner Excel Worksheet Functions 2 November 14th 04 10:34 PM


All times are GMT +1. The time now is 10:03 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"