textbox values to uppercase

[Jaye7]

Hi all,

Can anyone help.

I would like a vba script that changes the textbox1 value in userform1 to uppercase upon clicking on commanbutton1 (without having to enter the textbox value into a sheet).

I tried the Application.AutoCorrect but it just changed the value to True.

Thanks

 

[pedie]

[/FONT]
[FONT=Courier New]Option Explicit
Private Sub CommandButton1_Click()
Me.TextBox1.Value = UCase(Me.TextBox1.Value)
End Sub

 

[Jaye7]

That's great Pedie,

Can it be incorporated into the following so that any textbox tags that have an x it will change them to uppercase.

For Each Ctrl In Me.Controls
        If Ctrl.Tag = "x" Then
            Select Case TypeName(Ctrl)
                Case "TextBox": Ctrl.Value = ""
                Case "ComboBox": Ctrl.ListIndex = -1
            End Select
        End If
    Next Ctrl

 

[pedie]

Try this

[/FONT]
[FONT=Courier New]Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
        If Ctrl.Tag = "x" Then
         Ctrl.Value = UCase(Ctrl.Value)
        End If
    Next Ctrl
End Sub

 

[Jaye7]

Thanks very much Pedie.

Both scripts work great.

Have a great day.

 

[pedie]

'm glad it works!