Is there a way of using a for/next routine to call a multitude of comboboxes.
i.e, if I have say, 100 comboboxes, something like

combo = combobox & i
for i = 0 to 99
me.cells(rowno,cellno) = combo.value (this being each combo box from
combobox1 onwards)

next i

as opposed to having to type out a routine for each combobox?

Thanks

I think you'll need to use an object variable and then Set this
variable to each Combobox in turn.
So something more like:

Dim Combo as Object
Dim i as Integer

for i = 0 to 99
set Combo = combo & i
cells(rowno,cellno) = combo.value
next i


(not tested so my throw a bug, but I'm sure it is moving in the correct
direction)

Rgds
J


KneeDown2Up wrote:

> Is there a way of using a for/next routine to call a multitude of comboboxes.
> i.e, if I have say, 100 comboboxes, something like
>
> combo = combo & i
> for i = 0 to 99
> me.cells(rowno,cellno) = combo.value (this being each combo box from
> combobox1 onwards)
>
> next i
>
> as opposed to having to type out a routine for each combobox?
>
> Thanks

Ok, thanks for that. It comes back with an error message of Object variable
not set?

I then changed the line ' Set combo = combo & i' to 'Set combo = combobox &
i ' and received a "Object required" error.

"WhytheQ" wrote:

> I think you'll need to use an object variable and then Set this
> variable to each Combobox in turn.
> So something more like:
>
> Dim Combo as Object
> Dim i as Integer
>
> for i = 0 to 99
> set Combo = combo & i
> cells(rowno,cellno) = combo.value
> next i
>
>
> (not tested so my throw a bug, but I'm sure it is moving in the correct
> direction)
>
> Rgds
> J
>
>
> KneeDown2Up wrote:
>
> > Is there a way of using a for/next routine to call a multitude of comboboxes.
> > i.e, if I have say, 100 comboboxes, something like
> >
> > combo = combo & i
> > for i = 0 to 99
> > me.cells(rowno,cellno) = combo.value (this being each combo box from
> > combobox1 onwards)
> >
> > next i
> >
> > as opposed to having to type out a routine for each combobox?
> >
> > Thanks
>
>