ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How do I change case to sentence case in groups in excel? (https://www.excelbanter.com/excel-discussion-misc-queries/88841-how-do-i-change-case-sentence-case-groups-excel.html)

Pinetree

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.

grahammal

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


Pinetree

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



PlayingToAudienceOfOne

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.



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

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