ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Need an UPPERCASE format ability in Excel just like Word (https://www.excelbanter.com/excel-discussion-misc-queries/41908-need-uppercase-format-ability-excel-just-like-word.html)

Ron Lehr

Need an UPPERCASE format ability in Excel just like Word
 
I use MS Excel 2003. Microsoft should update the Excel program to include
the same ability Format-UPPERCASE that is built into MS Word 2003. A user
should simply have the ability to highlight the selected cells and then
Format-UPPERCASE and then all text within the cells should uppercase.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc

JMP

There is a formula to transfer lowercase items in uppercase. Use
=UPPERCASE("Celladres which contains lowercase")

--
www.wolters.100.nl

"Ron Lehr" <Ron schreef in bericht
...
I use MS Excel 2003. Microsoft should update the Excel program to include
the same ability Format-UPPERCASE that is built into MS Word 2003. A
user
should simply have the ability to highlight the selected cells and then
Format-UPPERCASE and then all text within the cells should uppercase.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc



Bob Phillips

The function is UPPER, and it only applies to a single cell, not all, so it
has to copied across

To upshift it all needs code.

--
HTH

RP
(remove nothere from the email address if mailing direct)


"JMP" wrote in message
el.net...
There is a formula to transfer lowercase items in uppercase. Use
=UPPERCASE("Celladres which contains lowercase")

--
www.wolters.100.nl

"Ron Lehr" <Ron schreef in bericht
...
I use MS Excel 2003. Microsoft should update the Excel program to

include
the same ability Format-UPPERCASE that is built into MS Word 2003. A
user
should simply have the ability to highlight the selected cells and then
Format-UPPERCASE and then all text within the cells should uppercase.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the

"I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and

then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...lic.excel.misc





Paul D. Simon

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul


Paul D. Simon

Ron,

Might as well give you a Proper Case macro while I'm at it. (Code is a
little different because there's no such syntax as PCase$.)


Sub ProperCase()
For Each c In Selection.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c


Paul


Paul D. Simon

Oops... Forgot the "End Sub". Here's correct code.

Sub ProperCase()
For Each c In Selection.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c
End Sub


Samad

Need an UPPERCASE format ability in Excel just like Word
 
Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul



Dave Peterson

Need an UPPERCASE format ability in Excel just like Word
 
Add

Dim C as Range

to the top of each procedure, like:

Sub UpCase( )
Dim C as Range
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub

Samad wrote:

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul



--

Dave Peterson

Gord Dibben

Need an UPPERCASE format ability in Excel just like Word
 
Samad

Would like to point out that these macros will also convert any formulas in the
range to values only.

Might not be what you want.

I prefer C.Value = UCase$(C.Formula)


Gord Dibben MS Excel MVP

On Tue, 23 Jan 2007 22:51:01 -0800, Samad
wrote:

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul




David McRitchie

Need an UPPERCASE format ability in Excel just like Word
 
Hi Samad,
here is the correction you asked for plus the correction that
Gord suggested. You can apply the same change to the
other macros. for proper you woud use
c.formula = application.proper(c.formuila)

Sub UpCase( )
dim c as range
For Each c In Selection.Cells
c.formula = UCase$(c.formula)
Next c
End Sub

If you want such macros to run a lot faster when you
select ranges involving entire columns or any other
range, see my page
http://www.mvps.org/dmcritchie/excel/proper.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Samad" wrote in message ...
Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul






Samad

Need an UPPERCASE format ability in Excel just like Word
 
Thanks Dave, Gord & David

Such a great kind of service you are doing.

Thanks a lot

"Samad" wrote:

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

"Paul D. Simon" wrote:

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul




All times are GMT +1. The time now is 05:35 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com