Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
Pinetree
 
Posts: n/a
Default How do I change case to sentence case in groups in excel?

How do I change case to sentence case in groups in excel? This is easily
done in Word.
  #2   Report Post  
Posted to microsoft.public.excel.misc
grahammal
 
Posts: n/a
Default How do I change case to sentence case in groups in excel?


Goto the following link and download ASAP Utilities, its free.
http://www.asaputilities.nl/

One of the options in 'Text' in this utility is to Change case.
It also has numerous other useful bits and pieces for Ecel.

Enjoy


--
grahammal
------------------------------------------------------------------------
grahammal's Profile: http://www.excelforum.com/member.php...o&userid=20336
View this thread: http://www.excelforum.com/showthread...hreadid=542509

  #3   Report Post  
Posted to microsoft.public.excel.misc
Pinetree
 
Posts: n/a
Default How do I change case to sentence case in groups in excel?

Very Helpful! Thank you very much. This will be a tremendous time saver!

"grahammal" wrote:


Goto the following link and download ASAP Utilities, its free.
http://www.asaputilities.nl/

One of the options in 'Text' in this utility is to Change case.
It also has numerous other useful bits and pieces for Ecel.

Enjoy


--
grahammal
------------------------------------------------------------------------
grahammal's Profile: http://www.excelforum.com/member.php...o&userid=20336
View this thread: http://www.excelforum.com/showthread...hreadid=542509


  #4   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 49
Default How do I change case to sentence case in groups in excel?

Copy the following 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

End Sub


"Pinetree" wrote:

How do I change case to sentence case in groups in excel? This is easily
done in Word.

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
count colored cells? DKY Excel Worksheet Functions 21 January 19th 06 09:47 PM
Loop for VBA code? paulinoluciano Excel Worksheet Functions 5 December 28th 05 01:30 PM
How can i change this VBA project According to Indian Numeric Rao Ratan Singh Excel Discussion (Misc queries) 1 April 21st 05 07:53 PM
Convert Numeric into Text Monty Excel Worksheet Functions 0 December 18th 04 09:25 PM
Identifying the Active Fill Color Steve Conary Excel Discussion (Misc queries) 3 December 9th 04 04:45 AM


All times are GMT +1. The time now is 08:00 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"