numerar objetos en userform

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

numerar objetos en userform

Notapor reta » 24 Oct 2006 11:52

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
hoja1.OLEobjects("label" & i).objects.value= lo que uno quiera
next i

quiero hacer lo mismo, pero con cualquier objeto de dentro del userform.

ojalá me puedan ayudar,
hace tiempo no entraba al portal
saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
reta
Miembro Frecuente
Miembro Frecuente
 
Registrado: 17 Ene 2005 17:00
Ubicación: vií±a

Re: numerar objetos en userform

Notapor Tavo77 » 24 Oct 2006 12:23

Hola, para recorrer los controles de un userform se puede usar algo como lo siguiente:
Código: Seleccionar todo
        Dim myControl As Control
        For Each myControl In UserForm1.Controls
            '.... código a ejecutar para cada control ....
        Next
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Tavo77
Miembro Frecuente
Miembro Frecuente
 
Registrado: 25 Ago 2005 20:43
Ubicación: Costa Rica

Re: numerar objetos en userform

Notapor reta » 24 Oct 2006 13:18

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 los chackboxes 1 al 7 y otra cosa con el 8 hasta el 13.

gracias
saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
reta
Miembro Frecuente
Miembro Frecuente
 
Registrado: 17 Ene 2005 17:00
Ubicación: vií±a

Re: numerar objetos en userform

Notapor Adrian » 24 Oct 2006 13:30

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 una etiqueta
'ojo no cambies lo nombres pre determinados de las etiquetas
End If
Next

Atte.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: numerar objetos en userform

Notapor reta » 24 Oct 2006 18:15

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 haga algo , del 5 al 7 , otra cosa, del 8 al 24 otra y así­.
gracias y perdón por no saber explicarme
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
reta
Miembro Frecuente
Miembro Frecuente
 
Registrado: 17 Ene 2005 17:00
Ubicación: vií±a

Re: numerar objetos en userform

Notapor Adrian » 25 Oct 2006 12:51

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))
Case 1 To 4
'tus operaciones
Case 5 To 7
'etc
End Select
End If
Next
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Notapor reta » 25 Oct 2006 15:39

gracias, como siempre me han sido de mucha ayuda
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
reta
Miembro Frecuente
Miembro Frecuente
 
Registrado: 17 Ene 2005 17:00
Ubicación: vií±a


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: ARMANDO CALDERON, Bing [Bot], sonkanon y 13 invitados