Excel...simple upper case conversion

[jfhewitt]

Is there any reason why Excel does not allow for defining a cell, and switching the text to upper or lower case? Must it be so difficult? Any answers?

 

[straybullet]

Dont know the reason why this is so, but...
if text is in A1, put =upper(a1) or =lower(a1) into B1 to convert. Fill down the column by double clicking on the fill handle.

 

[KenWright]

This will allow you to toggle between Upper and lower:-

Sub ToggleCase()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For Each cell In ActiveSheet.UsedRange
If cell.HasFormula = False And cell.Value = UCase(cell.Value) Then
cell.Value = LCase(cell.Value)
Else
cell.Value = UCase(cell.Value)
End If
Next cell
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Regards
Ken.................

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------

 

[jfhewitt]

Thanks Ken...perfecto! Now why can't the toggle be assigned a permanent button in Excel?

 

[KenWright]

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------

 

[jfhewitt]

Actually, I would like to change case in only the selected cell, not the whole sheet. How is that done?

 

[KenWright]

Just change

For Each cell In ActiveSheet.UsedRange

to

For Each cell In Selection

Regards
Ken...............

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------

 

[jfhewitt]

Thanks again, Ken. My VBA skills are minimal, but I figured it was an easy fix.

 

[KenWright]

LOL - You're welcome

Regards
Ken.............

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------