What happened to "Change Case"? in Excel General Questions  
 |  Edit my Profile  |  Help
 
     
   
 
 
 
Deinekes 5/29/2007 1:16 PM PST
  Question
  Where is the "Change Case" menu item? Did Microsoft actually remove a useful
feature across version updates, or am I just paranoid?
 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Nick Hodge 5/29/2007 1:22 PM PST
  Answer
  That's not an Excel feature. It is in Word, but not Excel unless it is by
way of add-in or code

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
nick_hodgeTAKETHISOUT@zen.co.ukANDTHIS
web: www.nickhodge.co.uk
blog (non-tech): www.nickhodge.co.uk/blog/


"Deinekes" <Deinekes@discussions.microsoft.com> wrote in message
news:50FD1E86-C87E-4B6F-A711-55F19FB999AC@microsoft.com...
> Where is the "Change Case" menu item? Did Microsoft actually remove a
> useful
> feature across version updates, or am I just paranoid?

 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Nick Hodge 5/29/2007 1:30 PM PST
   
  Or function of course for lower. Proper and UPPER case

=UPPER(A1)
=LOWER(A1)
=PROPER(A1)

But they're still there right up to 2007

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
nick_hodgeTAKETHISOUT@zen.co.ukANDTHIS
web: www.nickhodge.co.uk
blog (non-tech): www.nickhodge.co.uk/blog/

"Nick Hodge" <nick_hodgeTAKETHISOUT@zen.co.uk.ANDTHIS> wrote in message
news:67458084-FDCB-461B-B9DB-00213F9986F8@microsoft.com...
> That's not an Excel feature. It is in Word, but not Excel unless it is by
> way of add-in or code
>
> --
> HTH
> Nick Hodge
> Microsoft MVP - Excel
> Southampton, England
> nick_hodgeTAKETHISOUT@zen.co.ukANDTHIS
> web: www.nickhodge.co.uk
> blog (non-tech): www.nickhodge.co.uk/blog/
>
>
> "Deinekes" <Deinekes@discussions.microsoft.com> wrote in message
> news:50FD1E86-C87E-4B6F-A711-55F19FB999AC@microsoft.com...
>> Where is the "Change Case" menu item? Did Microsoft actually remove a
>> useful
>> feature across version updates, or am I just paranoid?
>

 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Peo Sjoblom 5/29/2007 1:26 PM PST
   
  Paranoid, there has never been a change case menu item in Excel, if you had
it in an earlier version it must have been a 3rd party add-in like ASAP
utilities etc.


--
Regards,

Peo Sjoblom


"Deinekes" <Deinekes@discussions.microsoft.com> wrote in message
news:50FD1E86-C87E-4B6F-A711-55F19FB999AC@microsoft.com...
> Where is the "Change Case" menu item? Did Microsoft actually remove a
> useful
> feature across version updates, or am I just paranoid?


 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Deinekes 5/29/2007 2:15 PM PST
   
  Tack och hej då!

"Peo Sjoblom" wrote:

> Paranoid, there has never been a change case menu item in Excel, if you had
> it in an earlier version it must have been a 3rd party add-in like ASAP
> utilities etc.
>
>
> --
> Regards,
>
> Peo Sjoblom
>
>
> "Deinekes" <Deinekes@discussions.microsoft.com> wrote in message
> news:50FD1E86-C87E-4B6F-A711-55F19FB999AC@microsoft.com...
> > Where is the "Change Case" menu item? Did Microsoft actually remove a
> > useful
> > feature across version updates, or am I just paranoid?
>
>
>
 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Deinekes 5/29/2007 1:34 PM PST
   
  Thanks for the answer, folks! You were right: paranoia. I checked it out
myself, as well. Word 2003 -- yes, Excel 2003 -- no. The fact that I use
OpenOffice as well -- and it IS a Format menu item there -- explains the
source of my confusion. Looks like I need to stop comparing Excel to free
software. :-)

Thanks again for the quick response.

"Deinekes" wrote:

> Where is the "Change Case" menu item? Did Microsoft actually remove a useful
> feature across version updates, or am I just paranoid?
 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
PlayingToAudienceOfOne 5/29/2007 1:40 PM PST
  Answer
  Try this macro:
Sub Change_Case()
Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (S)entence, (T)itles ")
If Ans = "" Then Exit Sub
For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Text)
Case "U": ocell = UCase(ocell.Text)
Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next

"Deinekes" wrote:

> Where is the "Change Case" menu item? Did Microsoft actually remove a useful
> feature across version updates, or am I just paranoid?
 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Deinekes 5/29/2007 1:47 PM PST
   
  Thanks!

"PlayingToAudienceOfOne" wrote:

> Try this macro:
> Sub Change_Case()
> Dim ocell As Range
> Dim Ans As String
> Ans = Application.InputBox("Type in Letter" & vbCr & _
> "(L)owercase, (U)ppercase, (S)entence, (T)itles ")
> If Ans = "" Then Exit Sub
> For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
> Select Case UCase(Ans)
> Case "L": ocell = LCase(ocell.Text)
> Case "U": ocell = UCase(ocell.Text)
> Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
> LCase(Right(ocell.Text, Len(ocell.Text) - 1))
> Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
> End Select
> Next
>
> "Deinekes" wrote:
>
> > Where is the "Change Case" menu item? Did Microsoft actually remove a useful
> > feature across version updates, or am I just paranoid?
 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Spikessong 1/21/2009 4:03 PM PST
   
  How do I take the macro you gave me and put it into my Excel program?

"PlayingToAudienceOfOne" wrote:

> Try this macro:
> Sub Change_Case()
> Dim ocell As Range
> Dim Ans As String
> Ans = Application.InputBox("Type in Letter" & vbCr & _
> "(L)owercase, (U)ppercase, (S)entence, (T)itles ")
> If Ans = "" Then Exit Sub
> For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
> Select Case UCase(Ans)
> Case "L": ocell = LCase(ocell.Text)
> Case "U": ocell = UCase(ocell.Text)
> Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
> LCase(Right(ocell.Text, Len(ocell.Text) - 1))
> Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
> End Select
> Next
>
> "Deinekes" wrote:
>
> > Where is the "Change Case" menu item? Did Microsoft actually remove a useful
> > feature across version updates, or am I just paranoid?
 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
Fred Smith 1/21/2009 5:15 PM PST
   
  The first think you do is keep your reply in the same thread you started.
Then people will know who you are talking to.

Regards,
Fred.

"Spikessong" <Spikessong@discussions.microsoft.com> wrote in message
news:15CAABCD-DA5E-4D61-83D3-FBE94DA7702A@microsoft.com...
> How do I take the macro you gave me and put it into my Excel program?
>
> "PlayingToAudienceOfOne" wrote:
>
>> Try this macro:
>> Sub Change_Case()
>> Dim ocell As Range
>> Dim Ans As String
>> Ans = Application.InputBox("Type in Letter" & vbCr & _
>> "(L)owercase, (U)ppercase, (S)entence, (T)itles ")
>> If Ans = "" Then Exit Sub
>> For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
>> Select Case UCase(Ans)
>> Case "L": ocell = LCase(ocell.Text)
>> Case "U": ocell = UCase(ocell.Text)
>> Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
>> LCase(Right(ocell.Text, Len(ocell.Text) - 1))
>> Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
>> End Select
>> Next
>>
>> "Deinekes" wrote:
>>
>> > Where is the "Change Case" menu item? Did Microsoft actually remove a
>> > useful
>> > feature across version updates, or am I just paranoid?

 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
 
 
LouW 7/4/2009 3:54 PM PST
   
  great macro! saved me alot of time...
might i suggest wrapping the select case with "If ocell <> "" Then", "elseif"
so that you can sellect a range that includes empty cells...

"PlayingToAudienceOfOne" wrote:

> Try this macro:
> Sub Change_Case()
> Dim ocell As Range
> Dim Ans As String
> Ans = Application.InputBox("Type in Letter" & vbCr & _
> "(L)owercase, (U)ppercase, (S)entence, (T)itles ")
> If Ans = "" Then Exit Sub
> For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
> Select Case UCase(Ans)
> Case "L": ocell = LCase(ocell.Text)
> Case "U": ocell = UCase(ocell.Text)
> Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
> LCase(Right(ocell.Text, Len(ocell.Text) - 1))
> Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
> End Select
> Next
>
> "Deinekes" wrote:
>
> > Where is the "Change Case" menu item? Did Microsoft actually remove a useful
> > feature across version updates, or am I just paranoid?
 
  Was this post helpful to you?  
 
 
  Reply | Print post   TopTop  
 
 
  Return to Microsoft Communities  Notify me of replies