Controls Array

[Guest]

Can you have an Array of Controls that are located in different Frames on a
UserForm? Here is the code that I have and I am getting an Run Time Error:
Type Mismatch.

For Each Control In Controls(Array("cboAreaP", "cboAreaV", "cboAreaD", _
"cboSingle", "cboDouble",
"cboDebossed"))
With Control
.AddItem "25%"
.AddItem "50%"
.AddItem "75%"
.AddItem "100%"
End With
Next Control

 

[Rick Rothstein \(MVP - VB\)]

Can you have an Array of Controls that are located in different Frames on

a
UserForm? Here is the code that I have and I am getting an Run Time
Error:
Type Mismatch.

For Each Control In Controls(Array("cboAreaP", "cboAreaV", "cboAreaD", _
"cboSingle", "cboDouble",
"cboDebossed"))
With Control
.AddItem "25%"
.AddItem "50%"
.AddItem "75%"
.AddItem "100%"
End With
Next Control

Try your For Each statement this way and see if that works...

For Each Control In Array(cboAreaP, cboAreaV, cboAreaD, _
cboSingle, cboDouble, cboDebossed)

Rick

 

[Nigel]

Try something like this.......on UserForm code sheet

For Each C In Array("cboAreaP", "cboAreaV", "cboAreaD", "cboSingle",
"cboDouble", "cboSingle", "cboDouble","cboDebossed")
With Me.Controls(C)
.AddItem "25%"
.AddItem "50%"
.AddItem "75%"
.AddItem "100%"
End With
Next