Home |
Search |
Today's Posts |
#5
![]() |
|||
|
|||
![]()
this may prove useful
Sub ChangeCase() Application.ScreenUpdating = False Dim r As Range nCase = UCase(InputBox("Enter U for UPPER" & Chr$(13) & " L for lower" & Chr$(13) & " Or " & Chr$(13) & " P for Proper", "Select Case Desired")) Select Case nCase Case "L" For Each r In Selection.Cells If r.HasFormula Then r.Formula = LCase(r.Formula) 'R.Formula = R.Value Else r.Value = LCase(r.Value) End If Next Case "U" For Each r In Selection.Cells If r.HasFormula Then r.Formula = UCase(r.Formula) 'R.Formula = R.Value Else r.Value = UCase(r.Value) End If Next -- Don Guillett SalesAid Software "Harvey" wrote in message ... In a spreadsheet that I made, there is a column with all types of text: all upper, all lower, proper. It could be a long task to re-type each cell. I'd like to convert this entire column to all proper. How can this be easily done? Thanks in advance for your help. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Convert text to numbers | Excel Discussion (Misc queries) | |||
Convert data of cells to any type: Number, Date&Time, Text | Excel Discussion (Misc queries) | |||
Putting text in a column based on variable text from another colum | Excel Discussion (Misc queries) | |||
how do I easily convert a single column of text (multiple rows si. | Excel Discussion (Misc queries) | |||
Is there a way I can enter a letter to proceed text a column of ce | Excel Discussion (Misc queries) |