Results 1 to 6 of 6

Format text to ALL CAPS

This is a discussion on Format text to ALL CAPS within the Excel Questions forums, part of the Question Forums category; How do I Format a cell to either change any text to CAPS or require the User to input in ...

  1. #1
    New Member
    Join Date
    Feb 2002
    Location
    Tampa, Fla
    Posts
    44

    Default

    How do I Format a cell to either change any text to CAPS or require the User to input in CAPS?
    Thanks.

  2. #2
    MrExcel MVP phantom1975's Avatar
    Join Date
    Jun 2002
    Location
    Omaha, Nebraska
    Posts
    3,962

    Default

    If cell A1 has the following text: testing
    And cell B1 has the following formula: upper(A1)
    Then B1 will then say TESTING.

    Does this help?
    Silly Billy was here....

    ***************** EXCEL/VB NEWBIES ARE MY FAVORITE! *****************

  3. #3
    Board Regular texasalynn's Avatar
    Join Date
    May 2002
    Location
    Houston, TX
    Posts
    8,308

    Default

    To get all upper case
    =UPPER(A2)


    HTH
    texasalynn

  4. #4
    MrExcel MVP Aladin Akyurek's Avatar
    Join Date
    Feb 2002
    Location
    The Hague, NL
    Posts
    65,247

    Default

    On 2002-07-24 13:19, Rick M wrote:
    How do I Format a cell to either change any text to CAPS or require the User to input in CAPS?
    Thanks.
    Rick,

    You could use ASAP-Utilities for this, a free download from:

    http://asap-utilities.com

    Aladin

  5. #5
    IML
    IML is offline
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Denver, CO
    Posts
    1,744

    Default

    One more option to have people enter upper case:

    Use data validation. Select custom and enter the formula
    =EXACT(A1,UPPER(A1))
    for cell A1.

    You can also add creative input and error messages here. Note, this will not stop someone from pasting in lower case values, but it will stop them from typing in lower case values.

  6. #6
    Board Regular
    Join Date
    Jun 2002
    Posts
    119

    Default

    If you want to do this with VB code paste the following in to worsheet VB section. This will capitalize in cells A1 to D10

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("A1:D10")) Is Nothing Then
    Target(1).Value = UCase(Target(1).Value)
    End If
    Application.EnableEvents = True
    End Sub

    Dave

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


DMCA.com