Clearing textboxes in userform error

[Patriot2879]

Hi i have the code below where i am trying to clear text boxes, 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 18 and 19 but i get an error on the 'For x = 10 To 19' line, please can you advice?

Private Sub CommandButton3_Click()
Dim x As Integer
For x = 1 To 7
For x = 10 To 19
Me.Controls("textbox" & x).Value = ""
Next x
End Sub

 

[RoryA]

You can't have two For statements like that using the same loop variable. You'd be better off just looping from 1 to 19 and then doing nothing when x is 8 or 9.

 

[Patriot2879]

how do i do that please in the code?

 

[RoryA]

For example:

Private Sub CommandButton3_Click()
Dim x As Integer
For x = 1 To 19
   Select Case x
     Case 8, 9
         ' do nothing
     Case else
         Me.Controls("textbox" & x).Value = ""
   End Select
Next x
End Sub

 

[Patriot2879]

wow that has worked great thank you for your help much appreciated

 

[RoryA]

Glad to help.