is it possible to change upper to lower case in excel

[Tania]

[FvH]

To change case in Excel you need to use an Excel function. The functions are listed below.

=UPPER()
This function will change the case of a specified cell to upper case.

=LOWER()
This function will change the case of a specified cell to lower case.

=PROPER()
This function will change the case of a specified cell to title case (ie The first letter of each word in the cell will be capitalised).

How To Use These Functions
Its easiest to illustrate the use of these functions through an example. If, for example, you had the word "AbOut" in cell A1 and wanted to change the case to lower case you would use the LOWER function in a blank cell:

=LOWER(A1)

That cell would then display "about". If, instead you had used the UPPER function would display "ABOUT", and using the PROPER function would display "About". You could then use the "Paste Special" command to replace the contents of A1.

[Ron de Bruin]

Hi Tania

See this two webpages

http://www.mvps.org/dmcritchie/excel/proper.htm
Or
http://www.cpearson.com/excel/case.htm

Here are some Macro's for changing text cells in the selection

Sub Uppercase_macro()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = UCase(cel.Value)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


Sub Lowercase_macro()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = LCase(cel.Value)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


Sub Propercase_macro()
Dim selectie As Range
Dim cel As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cel In selectie
cel.Value = StrConv(cel.Value, vbProperCase)
Next cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Tania" <[email protected]> wrote in message news:[email protected]...
>

[sathya_d]

Thank u verymuch ron de bruin

[sathya_d]

and also give some macro for rounding lot off columns in a single instance. like 0.000 , 0.00 & 0