I have a number of comboboxes on a userform.

They share a common prefix in their name and are then numbered i.e. cbx1,
cbx2, cbx3 etc.

I want to run a For .... Next procedure with these comboboxes, and am
wondering how to refer to them within this procedure - i.e "cbx" & (whatever
number - starting at 1 through to 10)

Is this possible?

Thanking you in advance!



Edi

Option Explicit
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim iCtr As Long
For iCtr = 1 To 10
Set ctrl = Me.Controls("cbx" & iCtr)
'do what you want???
'clear the combobox
ctrl.ListIndex = -1
Next iCtr
End Sub

You could also loop through the controls and work on just the comboboxes.

Option Explicit
Private Sub CommandButton1_Click()
Dim ctrl As Control
For each ctrl in me.controls
if typeof ctrl is msforms.combobox then
ctrl.listindex = -1
end if
next ctrl
End Sub


Blobbies wrote:
>
> I have a number of comboboxes on a userform.
>
> They share a common prefix in their name and are then numbered i.e. cbx1,
> cbx2, cbx3 etc.
>
> I want to run a For .... Next procedure with these comboboxes, and am
> wondering how to refer to them within this procedure - i.e "cbx" & (whatever
> number - starting at 1 through to 10)
>
> Is this possible?
>
> Thanking you in advance!
>
> Edi

--

Dave Peterson

Thank you Dave!! I was close in my trial and error attempts, but I'm not
sure whether I would have got there in the end or not!!!



Edi

"Dave Peterson" wrote:

> Option Explicit
> Private Sub CommandButton1_Click()
> Dim ctrl As Control
> Dim iCtr As Long
> For iCtr = 1 To 10
> Set ctrl = Me.Controls("cbx" & iCtr)
> 'do what you want???
> 'clear the combobox
> ctrl.ListIndex = -1
> Next iCtr
> End Sub
>
> You could also loop through the controls and work on just the comboboxes.
>
> Option Explicit
> Private Sub CommandButton1_Click()
> Dim ctrl As Control
> For each ctrl in me.controls
> if typeof ctrl is msforms.combobox then
> ctrl.listindex = -1
> end if
> next ctrl
> End Sub
>
>
> Blobbies wrote:
> >
> > I have a number of comboboxes on a userform.
> >
> > They share a common prefix in their name and are then numbered i.e. cbx1,
> > cbx2, cbx3 etc.
> >
> > I want to run a For .... Next procedure with these comboboxes, and am
> > wondering how to refer to them within this procedure - i.e "cbx" & (whatever
> > number - starting at 1 through to 10)
> >
> > Is this possible?
> >
> > Thanking you in advance!
> >
> > Edi
>
> --
>
> Dave Peterson
>