From: Mike on
Sub lowerCase()
Dim r As Long
r = 1
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With Range("A" & r)
.Value = LCase(.Value)
End With
r = r + 1 ' next row
Loop
End Sub

"Mervyn Thomas" wrote:

> Does anyone have a bit of code to convert a file of conatcts all in
> UPPERCASE to Lower Case?
>
>
> .
>
From: Ryan H on
I'm not sure where your range of data you want to change to Lower Case so I
assume it is in Sheet1 in Col. A. Here is some code you can run which will
change all data in Column to lower case. Hope this helps! If so, let me
know, click "YES" below.

Sub ConvertToLowerCase()

Dim rng As Range

With Sheets("Sheet1")
For Each rng In .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
rng.Value = LCase(rng.Value)
Next rng
End With

End Sub
--
Cheers,
Ryan


"Ryan H" wrote:

> Use the LCase Function.
>
> LCase("Your String Here")
>
> Hope this helps! IF so, let me know, click "YES" below.
> --
> Cheers,
> Ryan
>
>
> "Mervyn Thomas" wrote:
>
> > Does anyone have a bit of code to convert a file of conatcts all in
> > UPPERCASE to Lower Case?
> >
> >
> > .
> >
From: Mervyn Thomas on
I particularly liked this solution but thanks to everyone who answered
"JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message
news:OwAn4jygKHA.1540(a)TK2MSFTNGP06.phx.gbl...
> Sub dk()
> Dim nm As Range
> For Each nm In Range("A2:A25") 'substitute actual range
> nm = StrConv(nm.Value, vbProperCase)
> Next
>
> End Sub
>
>
> "Mervyn Thomas" <mervyn-thomas(a)ntlworld.com> wrote in message
> news:Ao6Ym.1125$Hy7.328(a)newsfe06.ams2...
>> Does anyone have a bit of code to convert a file of conatcts all in
>> UPPERCASE to Lower Case?
>>
>
>


From: Mervyn Thomas on
PS with all these methods how do you find in the VB help the various
options in your StrConv(nm.Value, vbProperCase) ? Or is their a decent
manual somwehere? I would much prefer being able to find it myself rather
than bother you guys!
Thanks again!
Mervyn

"Mervyn Thomas" <mervyn-thomas(a)ntlworld.com> wrote in message
news:Pr7Ym.100011$lP6.24193(a)newsfe13.ams2...
>I particularly liked this solution but thanks to everyone who answered
> "JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message
> news:OwAn4jygKHA.1540(a)TK2MSFTNGP06.phx.gbl...
>> Sub dk()
>> Dim nm As Range
>> For Each nm In Range("A2:A25") 'substitute actual range
>> nm = >> Next
>>
>> End Sub
>>
>>
>> "Mervyn Thomas" <mervyn-thomas(a)ntlworld.com> wrote in message
>> news:Ao6Ym.1125$Hy7.328(a)newsfe06.ams2...
>>> Does anyone have a bit of code to convert a file of conatcts all in
>>> UPPERCASE to Lower Case?
>>>
>>
>>
>
>


From: Ryan H on
In the VBE, you can put your cursor in the word/method you are interested in
learning about and press F1, this will take you directly to the help section
it is in.

I just read some books, check this forum out a lot and you come across a lot
of functions that other people use, then learn about it. It takes time but
you can catch on quickly.
--
Cheers,
Ryan


"Mervyn Thomas" wrote:

> PS with all these methods how do you find in the VB help the various
> options in your StrConv(nm.Value, vbProperCase) ? Or is their a decent
> manual somwehere? I would much prefer being able to find it myself rather
> than bother you guys!
> Thanks again!
> Mervyn
>
> "Mervyn Thomas" <mervyn-thomas(a)ntlworld.com> wrote in message
> news:Pr7Ym.100011$lP6.24193(a)newsfe13.ams2...
> >I particularly liked this solution but thanks to everyone who answered
> > "JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message
> > news:OwAn4jygKHA.1540(a)TK2MSFTNGP06.phx.gbl...
> >> Sub dk()
> >> Dim nm As Range
> >> For Each nm In Range("A2:A25") 'substitute actual range
> >> nm = >> Next
> >>
> >> End Sub
> >>
> >>
> >> "Mervyn Thomas" <mervyn-thomas(a)ntlworld.com> wrote in message
> >> news:Ao6Ym.1125$Hy7.328(a)newsfe06.ams2...
> >>> Does anyone have a bit of code to convert a file of conatcts all in
> >>> UPPERCASE to Lower Case?
> >>>
> >>
> >>
> >
> >
>
>
> .
>
First  |  Prev  |  Next  |  Last
Pages: 1 2 3
Prev: updating with now()
Next: Identifying a Pivot Table