** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Controles en UserForm
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoControles en UserForm

 Responder Responder
Autor
Mensaje
rigolino29 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 06/Junio/2010
Localización: Mexico
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Tema: Controles en UserForm
    Enviado: 02/Julio/2010 a las 01:20

Tengo un proyecto en el cual requiero poder clasificar los diferentes controles que tiene un formulario, tengo el siguiente código sin embargo, solamente funciona para los controles commandbutton, para los demás como textbox o label no funciona, ¿sabes el porqué? ¿me puedes ayudar?

 

 

 

For Each Control In Me.Controls

 

    If TypeOf Control Is CommandButton Then

        MsgBox ("Ha pasado un " & TypeName(Control))

    ElseIf TypeOf Control Is Label Then

        MsgBox ("Ha pasado un " & TypeName(Control))

    ElseIf TypeOf Control Is TextBox Then

        MsgBox ("Ha pasado un " & TypeName(Control))

 

next

Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5509
Enlace directo a este mensaje Enviado: 02/Julio/2010 a las 11:14
A tu código le falta el END IF.
 
Prueba con:
  For Each control In Me.Controls
    If TypeName(control) = "CommandButton" Then
        MsgBox "Ha pasado un botón de comando."
    ElseIf TypeName(control) = "Label" Then
        MsgBox "Ha pasado una etiqueta."
    ElseIf TypeName(control) = "TextBox" Then
        MsgBox "Ha pasado un cuadro de texto."
    End If
  Next control
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
rigolino29 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 06/Junio/2010
Localización: Mexico
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Enviado: 02/Julio/2010 a las 15:23
Si s eme paso escribir el end if, pero si lo tenía. De cualquier forma, ahora ya está corregido como me lo has puesto, MUCHAS GRACIAS.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable