All Textbox Uppercase

[delta]

In userform contain 5 TextBox "TextBox1", "TextBox2", "TextBox3", "TextBox4","TextBox5", "TextBox6", when enter any text in above 5 textbox write in uppercase. pls help me

 

[Hareesh_KLD]

Hi Try Following, May be it will work

Sub UcaseTextBoxes()

    For i = 1 To 6

        Range("A" & i).Value = UCase(Controls("TextBox" & i).Text)
       
    Next i
   
End Sub

 

[Belleke]

Do this for the 6 textboxes.

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub

 

[delta]

thanks nice answer

 

[delta]

Hi Try Following, May be it will work

Sub UcaseTextBoxes()

    For i = 1 To 6

        Range("A" & i).Value = UCase(Controls("TextBox" & i).Text)
      
    Next i
  
End Sub

superb