Looping through Labels

Hi all,

I have 6 labels named lblMachine1, lblMachine2, lblMachine3, lblMachine4, lblMachine5, and lblMachine6.

Is there a way to loop through all of these labels and populate all of them with data? I have tried the following;

    Dim i%
    
    i = 1
    Do
        lblMachine(i).Caption = cbxMachine.Value
    Loop Until i = 6

Please help. Thanks all.

Try:
Controls("lblMachine" & i).Caption = cbxMachine.Value

Also, you never seem to increment i in your loop, so it will run
for ever (unless you've omitted some lines). I'd prefer a For loop
for this:

For i = 1 to 6
Controls("lblMachine" & i).Caption = cbxMachine.Value
Next


gti_jobert wrote:
> Hi all,
>
> I have 6 labels named lblMachine1, lblMachine2, lblMachine3,
> lblMachine4, lblMachine5, and lblMachine6.
>
> Is there a way to loop through all of these labels and populate all of
> them with data? I have tried the following;
>
>
> Code:
> --------------------
>
>
> Dim i%
>
> i = 1
> Do
> lblMachine(i).Caption = cbxMachine.Value
> Loop Until i = 6
>
>
> --------------------
>
>
> Please help. Thanks all.
>
>
> --
> gti_jobert
> ------------------------------------------------------------------------
> gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
> View this thread: http://www.excelforum.com/showthread...hreadid=503266

Thankyou so much for you reply, its works great now and cuts down on so much code!!

in VB6 you can use lblMachine(i).caption but doesn't seem to work in VBA!

> in VB6 you can use lblMachine(i).caption but doesn't seem to work in
> VBA!

Only if you created a "Control-Array" of labels which is not supported in
VBA (though you could create your own array or collection of labels).

Regards,
Peter T