numerar objetos en userform

[reta]

quiero saber como puedo por ejemplo que desde el label 2 al 23 tomen cierto valor para caption, pero los objetos del user form , no de la hoja.

en la hoja se harí­a por ejemplo
for i = 2 to 23...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Tavo77]

Hola, para recorrer los controles de un userform se puede usar algo como lo siguiente:

<i>
</i>        Dim myControl As Control
        For Each myControl In UserForm1.Controls...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[reta]

gracias por la respuesta, el único problema es que la solución que tú planteas toma todos los objetos de un tipo, lo que yo quiero es que la macro discrimine por ejemplo:que haga cierta cosa con...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola!
por un if dentro del for:
Option Compare Text
Dim myControl As Control
For Each myControl In UserForm1.Controls
If InStr(1, myControl.Name, "Label") > 0 Then 'es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[reta]

gracias, pero parece q no supe explicar o que necesito, si uso lo que me propone adrián el programa tomará todos los controles label y les hará lo mismo, lo que yo quiero es que desde el 1 al 4...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Option Compare Text
Dim myControl As Control
For Each myControl In UserForm1.Controls
If InStr(1, myControl.Name, "Label") > 0 Then 'es una etiqueta
Select Case Val(Right(myControl.Name))...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[reta]

gracias, como siempre me han sido de mucha ayuda

 

[pbornhardtd]

Reta, yo tenía un problema similar al tuyo y lo solucioné de la siguiente forma (acostumbro usar Do en vez de For... pero lo que quiero mostrar es el uso de Controls):

Dim i As Integer
Dim...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí