Format text in Excel

How do I format LARGE CASE text to small case in excel 2002. Thanks Keith

You need a small macro, or a formula in another cell, like
=LOWER(A1)

HTH. Best wishes Harald

"kez" <keith.foster@onyxnet.co.uk> skrev i melding
news:41b896ce$1@nntp.onyx.net...
> How do I format LARGE CASE text to small case in excel 2002. Thanks Keith
>
>

Please could you tell me how to do this? Thanks
"Harald Staff" <innocent@enron.invalid> wrote in message
news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
> You need a small macro, or a formula in another cell, like
> =LOWER(A1)
>
> HTH. Best wishes Harald
>
> "kez" <keith.foster@onyxnet.co.uk> skrev i melding
> news:41b896ce$1@nntp.onyx.net...
>> How do I format LARGE CASE text to small case in excel 2002. Thanks Keith
>>
>>
>
>

If you have this in cell A1:
THIS IS MY TEXT
then enter this in cell B1:
=LOWER(A1)
and B1 will display
this is my text

If this is not what you want then please be more specific.

HTH. Best wishes Harald

"kez" <keith.foster@onyxnet.co.uk> skrev i melding
news:41b949c3$1@nntp.onyx.net...
> Please could you tell me how to do this? Thanks
> "Harald Staff" <innocent@enron.invalid> wrote in message
> news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
> > You need a small macro, or a formula in another cell, like
> > =LOWER(A1)
> >
> > HTH. Best wishes Harald
> >
> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
> > news:41b896ce$1@nntp.onyx.net...
> >> How do I format LARGE CASE text to small case in excel 2002. Thanks
Keith
> >>
> >>
> >
> >
>
>

I have 7000 addresses in my excel database, approximately 5000 are uppercase
text! I need to change them to lower case? is there a quick way without me
having to edit them all individually? Thanks
"Harald Staff" <innocent@enron.invalid> wrote in message
news:OYMMO%23o3EHA.2316@TK2MSFTNGP15.phx.gbl...
> If you have this in cell A1:
> THIS IS MY TEXT
> then enter this in cell B1:
> =LOWER(A1)
> and B1 will display
> this is my text
>
> If this is not what you want then please be more specific.
>
> HTH. Best wishes Harald
>
> "kez" <keith.foster@onyxnet.co.uk> skrev i melding
> news:41b949c3$1@nntp.onyx.net...
>> Please could you tell me how to do this? Thanks
>> "Harald Staff" <innocent@enron.invalid> wrote in message
>> news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
>> > You need a small macro, or a formula in another cell, like
>> > =LOWER(A1)
>> >
>> > HTH. Best wishes Harald
>> >
>> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>> > news:41b896ce$1@nntp.onyx.net...
>> >> How do I format LARGE CASE text to small case in excel 2002. Thanks
> Keith
>> >>
>> >>
>> >
>> >
>>
>>
>
>

This does not work ?
"Harald Staff" <innocent@enron.invalid> wrote in message
news:OYMMO%23o3EHA.2316@TK2MSFTNGP15.phx.gbl...
> If you have this in cell A1:
> THIS IS MY TEXT
> then enter this in cell B1:
> =LOWER(A1)
> and B1 will display
> this is my text
>
> If this is not what you want then please be more specific.
>
> HTH. Best wishes Harald
>
> "kez" <keith.foster@onyxnet.co.uk> skrev i melding
> news:41b949c3$1@nntp.onyx.net...
>> Please could you tell me how to do this? Thanks
>> "Harald Staff" <innocent@enron.invalid> wrote in message
>> news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
>> > You need a small macro, or a formula in another cell, like
>> > =LOWER(A1)
>> >
>> > HTH. Best wishes Harald
>> >
>> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>> > news:41b896ce$1@nntp.onyx.net...
>> >> How do I format LARGE CASE text to small case in excel 2002. Thanks
> Keith
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Kez

Sub Lower_Case()
'David McRitchie, programming, 2003-03-07
Dim rng1 As Range, rng2 As Range, bigrange As Range
Dim Cell As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
Set rng1 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeConstants))
Set rng2 = Intersect(Selection, _
Selection.SpecialCells(xlCellTypeFormulas))
On Error GoTo 0
If rng1 Is Nothing Then
Set bigrange = rng2
ElseIf rng2 Is Nothing Then
Set bigrange = rng1
Else
Set bigrange = Union(rng1, rng2)
End If
If bigrange Is Nothing Then
MsgBox "All cells in range are EMPTY"
GoTo done
End If
For Each Cell In bigrange
Cell.Formula = LCase(Cell.Formula)
Next Cell
done:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Gord Dibben Excel MVP

On Fri, 10 Dec 2004 17:06:20 -0000, "kez" <keith.foster@onyxnet.co.uk> wrote:

>I have 7000 addresses in my excel database, approximately 5000 are uppercase
>text! I need to change them to lower case? is there a quick way without me
>having to edit them all individually? Thanks
>"Harald Staff" <innocent@enron.invalid> wrote in message
>news:OYMMO%23o3EHA.2316@TK2MSFTNGP15.phx.gbl...
>> If you have this in cell A1:
>> THIS IS MY TEXT
>> then enter this in cell B1:
>> =LOWER(A1)
>> and B1 will display
>> this is my text
>>
>> If this is not what you want then please be more specific.
>>
>> HTH. Best wishes Harald
>>
>> "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>> news:41b949c3$1@nntp.onyx.net...
>>> Please could you tell me how to do this? Thanks
>>> "Harald Staff" <innocent@enron.invalid> wrote in message
>>> news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
>>> > You need a small macro, or a formula in another cell, like
>>> > =LOWER(A1)
>>> >
>>> > HTH. Best wishes Harald
>>> >
>>> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>>> > news:41b896ce$1@nntp.onyx.net...
>>> >> How do I format LARGE CASE text to small case in excel 2002. Thanks
>> Keith
>>> >>
>>> >>
>>> >
>>> >
>>>
>>>
>>
>>
>

I read this as a question about wether my suggestion works or not. Yes it
does, at least it works perfectly fine on my computer. I don't find
deliberate non-working sloutions amusing, so have no fear. Give it a try. I
come in peace, take me to your leader.
"kez" <keith.foster@onyxnet.co.uk> skrev i melding
news:41b9dc5c@nntp.onyx.net...
> This does not work ?
> "Harald Staff" <innocent@enron.invalid> wrote in message
> news:OYMMO%23o3EHA.2316@TK2MSFTNGP15.phx.gbl...
> > If you have this in cell A1:
> > THIS IS MY TEXT
> > then enter this in cell B1:
> > =LOWER(A1)
> > and B1 will display
> > this is my text
> >
> > If this is not what you want then please be more specific.
> >
> > HTH. Best wishes Harald
> >
> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
> > news:41b949c3$1@nntp.onyx.net...
> >> Please could you tell me how to do this? Thanks
> >> "Harald Staff" <innocent@enron.invalid> wrote in message
> >> news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
> >> > You need a small macro, or a formula in another cell, like
> >> > =LOWER(A1)
> >> >
> >> > HTH. Best wishes Harald
> >> >
> >> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
> >> > news:41b896ce$1@nntp.onyx.net...
> >> >> How do I format LARGE CASE text to small case in excel 2002. Thanks
> > Keith
> >> >>
> >> >>
> >> >
> >> >
> >>
> >>
> >
> >
>
>

Hello Gorden
I am an absolute beginner to excel , what do I do with this ? Thanks Keith
"Gord Dibben" <gorddibbATshawDOTca> wrote in message
news:dpqjr01ji93pnpc3rl1o5ems1crsvn1ga1@4ax.com...
> Kez
>
> Sub Lower_Case()
> 'David McRitchie, programming, 2003-03-07
> Dim rng1 As Range, rng2 As Range, bigrange As Range
> Dim Cell As Range
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
> On Error Resume Next
> Set rng1 = Intersect(Selection, _
> Selection.SpecialCells(xlCellTypeConstants))
> Set rng2 = Intersect(Selection, _
> Selection.SpecialCells(xlCellTypeFormulas))
> On Error GoTo 0
> If rng1 Is Nothing Then
> Set bigrange = rng2
> ElseIf rng2 Is Nothing Then
> Set bigrange = rng1
> Else
> Set bigrange = Union(rng1, rng2)
> End If
> If bigrange Is Nothing Then
> MsgBox "All cells in range are EMPTY"
> GoTo done
> End If
> For Each Cell In bigrange
> Cell.Formula = LCase(Cell.Formula)
> Next Cell
> done:
> Application.Calculation = xlCalculationAutomatic
> Application.ScreenUpdating = True
> End Sub
>
>
> Gord Dibben Excel MVP
>
> On Fri, 10 Dec 2004 17:06:20 -0000, "kez" <keith.foster@onyxnet.co.uk>
> wrote:
>
>>I have 7000 addresses in my excel database, approximately 5000 are
>>uppercase
>>text! I need to change them to lower case? is there a quick way without me
>>having to edit them all individually? Thanks
>>"Harald Staff" <innocent@enron.invalid> wrote in message
>>news:OYMMO%23o3EHA.2316@TK2MSFTNGP15.phx.gbl...
>>> If you have this in cell A1:
>>> THIS IS MY TEXT
>>> then enter this in cell B1:
>>> =LOWER(A1)
>>> and B1 will display
>>> this is my text
>>>
>>> If this is not what you want then please be more specific.
>>>
>>> HTH. Best wishes Harald
>>>
>>> "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>>> news:41b949c3$1@nntp.onyx.net...
>>>> Please could you tell me how to do this? Thanks
>>>> "Harald Staff" <innocent@enron.invalid> wrote in message
>>>> news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
>>>> > You need a small macro, or a formula in another cell, like
>>>> > =LOWER(A1)
>>>> >
>>>> > HTH. Best wishes Harald
>>>> >
>>>> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>>>> > news:41b896ce$1@nntp.onyx.net...
>>>> >> How do I format LARGE CASE text to small case in excel 2002. Thanks
>>> Keith
>>>> >>
>>>> >>
>>>> >
>>>> >
>>>>
>>>>
>>>
>>>
>>
>

Kez

Copy and paste to a general module in your workbook.

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module. Paste the above code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to Tool>Macro>Macros.

Gord Dibben Excel MVP

On Sat, 11 Dec 2004 08:11:26 -0000, "kez" <keith.foster@onyxnet.co.uk> wrote:

>Hello Gorden
>I am an absolute beginner to excel , what do I do with this ? Thanks Keith
>"Gord Dibben" <gorddibbATshawDOTca> wrote in message
>news:dpqjr01ji93pnpc3rl1o5ems1crsvn1ga1@4ax.com...
>> Kez
>>
>> Sub Lower_Case()
>> 'David McRitchie, programming, 2003-03-07
>> Dim rng1 As Range, rng2 As Range, bigrange As Range
>> Dim Cell As Range
>> Application.ScreenUpdating = False
>> Application.Calculation = xlCalculationManual
>> On Error Resume Next
>> Set rng1 = Intersect(Selection, _
>> Selection.SpecialCells(xlCellTypeConstants))
>> Set rng2 = Intersect(Selection, _
>> Selection.SpecialCells(xlCellTypeFormulas))
>> On Error GoTo 0
>> If rng1 Is Nothing Then
>> Set bigrange = rng2
>> ElseIf rng2 Is Nothing Then
>> Set bigrange = rng1
>> Else
>> Set bigrange = Union(rng1, rng2)
>> End If
>> If bigrange Is Nothing Then
>> MsgBox "All cells in range are EMPTY"
>> GoTo done
>> End If
>> For Each Cell In bigrange
>> Cell.Formula = LCase(Cell.Formula)
>> Next Cell
>> done:
>> Application.Calculation = xlCalculationAutomatic
>> Application.ScreenUpdating = True
>> End Sub
>>
>>
>> Gord Dibben Excel MVP
>>
>> On Fri, 10 Dec 2004 17:06:20 -0000, "kez" <keith.foster@onyxnet.co.uk>
>> wrote:
>>
>>>I have 7000 addresses in my excel database, approximately 5000 are
>>>uppercase
>>>text! I need to change them to lower case? is there a quick way without me
>>>having to edit them all individually? Thanks
>>>"Harald Staff" <innocent@enron.invalid> wrote in message
>>>news:OYMMO%23o3EHA.2316@TK2MSFTNGP15.phx.gbl...
>>>> If you have this in cell A1:
>>>> THIS IS MY TEXT
>>>> then enter this in cell B1:
>>>> =LOWER(A1)
>>>> and B1 will display
>>>> this is my text
>>>>
>>>> If this is not what you want then please be more specific.
>>>>
>>>> HTH. Best wishes Harald
>>>>
>>>> "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>>>> news:41b949c3$1@nntp.onyx.net...
>>>>> Please could you tell me how to do this? Thanks
>>>>> "Harald Staff" <innocent@enron.invalid> wrote in message
>>>>> news:%23Lomg5i3EHA.4092@TK2MSFTNGP14.phx.gbl...
>>>>> > You need a small macro, or a formula in another cell, like
>>>>> > =LOWER(A1)
>>>>> >
>>>>> > HTH. Best wishes Harald
>>>>> >
>>>>> > "kez" <keith.foster@onyxnet.co.uk> skrev i melding
>>>>> > news:41b896ce$1@nntp.onyx.net...
>>>>> >> How do I format LARGE CASE text to small case in excel 2002. Thanks
>>>> Keith
>>>>> >>
>>>>> >>
>>>>> >
>>>>> >
>>>>>
>>>>>
>>>>
>>>>
>>>
>>
>