loop to clear textboxes and labels on userform consecutive and not consecutive

[ABDELFATTA]

Hi experts,


I need short procedure to clear multiple textboxes and labels instead of write for all of controls empty value one by one .

so I want adding procedure to end of my code after copy from userform .
I have textboxes 144:150 , labels 39:44 and separated numbers not consecutive like this textboxes 1.5,7,10,15 also textboxes 18,23,28,33,38
all of theses should clear after copy from userform .
anybody has idea ?

[JohnTopley]

Please see yellow banner at top of page on how to attach a sample workbook.

Example ....

Please Login or Register  to view this content.

[beyond Excel]

For example try with:

Dim mRows, it, iRow, tb 
mRows = "144:150,1,5,7,15,18,23,28" 
mRows = Split(mRows, ",") 
For Each it In mRows 
  If InStr(it, ":") > 0 Then iRow = Evaluate("Row(" & it & ")") Else iRow = Array(it) 
  For Each tb In iRow 
    Me("TextBox" & tb) = "" 
  Next 
Next  

[ABDELFATTA]

thanks John
I thought no need to attach my file contains many codes could cause confusion for the members , if you still want attach file I will create new file .
your idea works but for just consecutive , what about not consecutive ,how could be, please?

[ABDELFATTA]

thanks beyond .
it works but also I need for labels 39:44
I try adding as is bold but doesn't work

Please Login or Register  to view this content.

[beyond Excel]

thanks beyond . it works but also I need for labels 39:44 . I try adding as is bold but doesn't work

Please Login or Register  to view this content.

You have to do it separately:

- First clear the textBoxes, and
- Then clean the Label.

[ABDELFATTA]

sorry beyond I'm not sure what you mean .
do you mean can't do that textbox & label in the same code? should be two code are separated for each other.

[beyond Excel]

.
Obviously.
.