Upper case to Lower case
 

Is it possible to change an entire column, so that any upper case letters
are changed to lower case? Or do they all need to be changed individually?
Thanks for any replies.

Upper case to Lower case
 

You can put this formula in a helper column:

=LOWER(A1)

and then copy down as far as required.

Fix the values by highlighting the cells with the formula in and
<copy, then Edit | Paste Special | Values (check) | OK then <Esc.
Then you can copy the values to overwrite the originals in column A,
then delete the helper column.

Hope this helps.

Pete

On May 5, 12:44*pm, "Fergal" wrote:
Is it possible to change an entire column, so that any upper case letters
are changed to lower case? Or do they all need to be changed individually?
Thanks for any replies.

Upper case to Lower case
 

Fergal,

Right click your sheet tab, view code and paste the code below in. Change
MyColumn to the desired column and then run the code.

Sub Marine()
Dim MyRange
Dim MyColumn As String
MyColumn = "A" 'Change to suit
lastrow = Cells(Cells.Rows.Count, MyColumn).End(xlUp).Row
Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
For Each c In MyRange
If Not c.HasFormula Then
c.Value = UCase(c.Value)
End If
Next
End Sub

Mike

"Fergal" wrote:

Is it possible to change an entire column, so that any upper case letters
are changed to lower case? Or do they all need to be changed individually?
Thanks for any replies.

Upper case to Lower case
 

OOPS,

wrong way around you wanted lower case.

Sub Marine()
Dim MyRange
Dim MyColumn As String
MyColumn = "A" 'Change to suit
lastrow = Cells(Cells.Rows.Count, MyColumn).End(xlUp).Row
Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
For Each c In MyRange
If Not c.HasFormula Then
c.Value = LCase(c.Value)
End If
Next
End Sub

Mike

"Mike H" wrote:

Fergal,

Right click your sheet tab, view code and paste the code below in. Change
MyColumn to the desired column and then run the code.

Sub Marine()
Dim MyRange
Dim MyColumn As String
MyColumn = "A" 'Change to suit
lastrow = Cells(Cells.Rows.Count, MyColumn).End(xlUp).Row
Set MyRange = Range(MyColumn & "1:" & MyColumn & lastrow)
For Each c In MyRange
If Not c.HasFormula Then
c.Value = UCase(c.Value)
End If
Next
End Sub

Mike

"Fergal" wrote:

Is it possible to change an entire column, so that any upper case letters
are changed to lower case? Or do they all need to be changed individually?
Thanks for any replies.

Upper case to Lower case
 

Use the function =LOWER(A1) which will convert the text in A1 to lower case
--
If this post helps click Yes
---------------
Jacob Skaria


"Fergal" wrote:

Is it possible to change an entire column, so that any upper case letters
are changed to lower case? Or do they all need to be changed individually?
Thanks for any replies.

Upper case to Lower case
 

assuing the your uppercase data are in col A
highlight B2 downward to where your data end
go to the formula bar
type =lower(A2) (if you want all letters to be lowercase), otherwise
type =proper(A2) (if you want the first letter to be a captial letter)
Ctrl and Enter
--
Hope this is helpful

Pls click the Yes button below if this post provide answer you have asked

Thank You

cheers, francis

Am not a greek but an ordinary user trying to assist another



"Fergal" wrote:

Is it possible to change an entire column, so that any upper case letters
are changed to lower case? Or do they all need to be changed individually?
Thanks for any replies.