Dynamic check Textboxes for Ucase

[7thwave]

Excellists,

I've constructed a userform te perform a textsearch for some keywords. I want to check the textbox input for Ucase. I can do that one by one as follows:

Private Sub TextBox1_Change()
'If TextBox1.Text <> LCase(TextBox1.Text) Then
'MsgBox "Geen hoofdletters!!"
'TextBox1 = ""
'TextBox1.SetFocus
'End If
End Sub

As there are 8 boxes i would like to do it dynamiccaly. But my effords fail. See coding below. Where do i go wrong?

Private Sub InputTextBox_change()
Dim x As Integer
For x = 1 To 8
If Me.Controls("textbox" & x) = UCase("textbox" & x) Then
MsgBox "Geen hoofdletters!!"
Me.Controls("textbox" & x).Value = ""
End If
Next x
End Sub

Is it me or is it not possible to upload examplefile???

Regards,

Luc

 

[Norie]

Luc

Couldn't you allow the user to enter lower/upper case in the textbox(es) and then convert to the case you want when the exit?

 

[7thwave]

Hi Norie,

Well why not? whatever works. I've set my program to change the targettext to LCase; so in the combi it should work. Do you have a tip on how to change the textbox strings to LCase? I possible all eight?

Thank you in advance.

Luc

 

[Norie]

Luc

Do you mean have code that could handle multiple textboxes rather than having individual code for each textbox?

 

[7thwave]

Nori,

Yes. I already took you advise and changed the coding for textboxes one by one. Works already, so thank you for the tip. As i am just starting with VBA i'm eager to learn and my early attempts consist of a lot of those recurring peaces of code. So, if you don't mind showing me how to handle multiple textboxes (or whatever) i would be gratefull.

Thanks already!!

 If TextBox1.Text <> "" Then
        If InStr(cell, LCase(TextBox1.Text)) <> 0 Then i = i + 1
        cell.Offset(0, 2) = UBound(Split(cell, LCase(TextBox1.Text)))
    End If
    
    If TextBox2.Text <> "" Then
        If InStr(cell, LCase(TextBox2.Text)) <> 0 Then i = i + 1
        cell.Offset(0, 3) = UBound(Split(cell, LCase(TextBox2.Text)))
    End If