Re: Change all from upper case to lower case???

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: Ken Wright (ken.wright_at_NOSPAMntlworld.com)
Date: 05/11/04 

Date: Tue, 11 May 2004 23:29:56 +0100

Oops - You want the ProperCase one, not the lowercase one - apologies 

-- 
Regards
           Ken.......................    Microsoft MVP - Excel
              Sys Spec - Win XP Pro /  XL 97/00/02/03
----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission :-)
----------------------------------------------------------------------------
"Ken Wright" <ken.wright@NOSPAMntlworld.com> wrote in message
news:%23N8WSX6NEHA.128@TK2MSFTNGP12.phx.gbl...
> Here's a range of macros from posts in this group.  You want the lowercase
one,
> but the others may come in useful
>
>
> Sub CAPS()
> 'select range and run this to change to all CAPS
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
>
> Dim Cel As Range
>    For Each Cel In Intersect(Selection, ActiveSheet.UsedRange)
>       Cel.Formula = UCase$(Cel.Formula)
>    Next
> Application.ScreenUpdating = True
> Application.Calculation = xlCalculationAutomatic
> End Sub
>
>
> Sub MakeUpperCase()
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
>
>  For Each cell In ActiveSheet.UsedRange
>     If cell.HasFormula = False Then
>       cell.Value = UCase(cell.Value)
>     End If
>  Next cell
> Application.ScreenUpdating = True
> Application.Calculation = xlCalculationAutomatic
> End Sub
>
>
> Sub MakeLowercase()
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
>
>  For Each cell In ActiveSheet.UsedRange
>     If cell.HasFormula = False Then
>       cell.Value = LCase(cell.Value)
>     End If
>  Next cell
> Application.ScreenUpdating = True
> Application.Calculation = xlCalculationAutomatic
> End Sub
>
>
> Sub MakeProperCase()
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
>
>     Dim myCell As Range
>     Dim myRng As Range
>
>     On Error Resume Next
>     Set myRng = Intersect(Selection, _
>                    Selection.Cells _
>                         .SpecialCells(xlCellTypeConstants, xlTextValues))
>     On Error GoTo 0
>
>     If myRng Is Nothing Then
>         MsgBox "Please select a range that contains text--no formulas!"
>         Exit Sub
>     End If
>
>     For Each myCell In myRng.Cells
>         myCell.Value = StrConv(myCell.Value, vbProperCase)
>     Next myCell
> Application.Calculation = xlCalculationAutomatic
> Application.ScreenUpdating = True
> End Sub
>
>
> -- 
> Regards
>            Ken.......................    Microsoft MVP - Excel
>               Sys Spec - Win XP Pro /  XL 97/00/02/03
>
> ----------------------------------------------------------------------------
> It's easier to beg forgiveness than ask permission :-)
> ----------------------------------------------------------------------------
>
>
>
> "jenniferlynnlee >" <<jenniferlynnlee.1643hb@excelforum-nospam.com> wrote in
> message news:jenniferlynnlee.1643hb@excelforum-nospam.com...
> > Is there a third-party plug-in for changing text in all fields from all
> > caps to upper and lower (capital on all first letters) within Excel, or
> > is there a trick for achieving that conversion?
> >
> > Thanks!
> >
> >
> > ---
> > Message posted from http://www.ExcelForum.com/
> >
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.679 / Virus Database: 441 - Release Date: 07/05/2004
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.679 / Virus Database: 441 - Release Date: 07/05/2004

Relevant Pages

  • Re: How to capture Max cell value (High Water Mark)
    ... Where A1 is the cell that is changing and the HiWater function can be in any ... I don't have any other macros in the workbook. ... Sub Test_Enable_Events ... I'm only using it on the same worksheet where the macro was created. ...
    (microsoft.public.excel)
  • Re: How to capture Max cell value (High Water Mark)
    ... directly addressing the changing cell. ... I don't have any other macros in the workbook. ... Sub Test_Enable_Events ... "Note that it only works with the worksheet under which it was ...
    (microsoft.public.excel)
  • Info Only: Formula Freeze Module
    ... Dim rngTest As Range ... .ScreenUpdating = False ... Public Sub RecordDelete ... Dim cell As Object ...
    (microsoft.public.excel.programming)
  • Re: start programing
    ... This should open the Visual Basic Editor. ... Visual Basic automatically will create an "End Sub". ... program to set the font attributes, borders and color of the cell. ... Macro Recorder, select the cell, set Bold, heavy border outline ...
    (comp.programming)
  • Re: macro call
    ... cell and training the user to click the button to invoke the code. ... Private Sub Worksheet_Change ... Dim iSect As Range ... it will call Macro22. ...
    (microsoft.public.excel.misc)