Thanks Thanks:  0
Likes Likes:  0
Page 3 of 5 FirstFirst 12345 LastLast
Results 21 to 30 of 45

Thread: text in caps

  1. #21

    Join Date
    Feb 2002
    Posts
    7
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Post your address and I'll send you a workbook that includes the macro.

  2. #22
    Guest

    Default

    I don't know why I can't get it to work have tried everything that was posted send workbook to pabr_2001@yahoo.com Thanks

  3. #23
    Guest

    Default

    Sheet was e-mailed to me did not work, I donít know what is happening! it is suppose to change what is typed in column E to caps right? Using Excel í97. Again thanks for the help. Now I am very

  4. #24
    Guest

    Default

    Go to Tools>Macro>Security and change the setting from High to Medium.

  5. #25
    Guest

    Default

    I also did everything posted and security is set to medium. I'm using Excel 2000 and it does not work for me either.

  6. #26
    Guest

    Default

    now I know I am not the only one that it want work for!

  7. #27
    Guest

    Default

    Is your calculation set to automatic? (tools->Options->calculation->automatic).

  8. #28
    Guest

    Default

    Yes

  9. #29
    MrExcel MVP Russell Hauf's Avatar
    Join Date
    Feb 2002
    Location
    Portland, OR Area - USA
    Posts
    1,607
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Try the following. Formulas usually will automatically change to uppercase, and the parts that don't you usually don't want to make uppercase anyway (let me know if anyone can think of a reason for this). Hope this helps,

    -Russell



    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo HandleErr
    Dim cell As Range

    Application.EnableEvents = False

    For Each cell In Target
    If cell.Column = 5 Then
    If cell.Formula = "" Then
    cell.Text = UCase(cell.Text)
    End If
    End If
    Next cell

    ExitHere:
    Application.EnableEvents = True
    Exit Sub
    HandleErr:
    MsgBox Err.Description
    Resume ExitHere
    End Sub



    [ This Message was edited by: Russell Hauf on 2002-02-27 13:03 ]

  10. #30
    Guest

    Default


    <<<
    Correction. Better make that :-

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng1 As Range, rng2 As Range, cell As Range
    Application.EnableEvents = False
    If Not Intersect(Selection, Columns(5)) Is Nothing Then
    Set rng1 = Intersect(Selection, Columns(5))
    Set rng2 = Intersect(ActiveSheet.UsedRange, rng1)
    For Each cell In rng2
    If cell.Formula <> "" Then
    cell.Formula = Format(cell.Formula, ">")
    End If
    Next cell
    End If
    Application.EnableEvents = True
    End Sub
    >>>


    Setting rng1 as the intersection of "selection" and the affected column has an unexpected result - it only affects the cell below the changed cell. By setting rng1 = columns (x) you won't miss any cells.

Some videos you may like

User Tag List

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
  •