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

Tema cerradoAyuda con ComboBox!

 Responder Responder
Autor
Mensaje
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 93
Enlace directo a este mensaje Tema: Ayuda con ComboBox!
    Enviado: 12/Marzo/2017 a las 21:35
Hola, tengo la siguiente macro:

Private Sub ComboBox1_DropButtonClick()
  
If Target.Column = 5 Then

ActiveCell.Value = Range("B299").Value
Else
MsgBox "No está en la columna correcta"
End If
End Sub

El objetivo es colocar el valor seleccionado del combo box, en la celda activa, en mi caso, debe ser colocado en la Columna E (o sea la Nº 5). Y debe aparecer un mensaje, si no me encuentro en la columna E al desplegar el Combo Box

La macro funcionó bien hasta que incluí la instrucción IF
Me muestra una ventana con el siguiente mensaje:

Run-time error "424":
Object Required

Que estoy haciendo mal?
Cualquier sugerencia, ayuda, etc, es muy bienvenida

Gracias
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 4994
Enlace directo a este mensaje Enviado: 13/Marzo/2017 a las 00:20
Target es una variable local que funciona dentro de un evento de Hoja, por ejemplo...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Aquí puedes emplear Target, pues es una variable integrada en _
el evento (resaltada en rojo), que representa el nuevo rango _
seleccionado, pero no en el código de tu mensaje.
End Sub

Prueba cambiando:  If Target.Column = 5 Then   por esto otro  If Selection.Column = 5 Then


Pregunta lo que no sabes, recuérdalo para cuando te pregunten y ofrece tu ayuda (reconforta).

Mi sitio_web con ejemplos Excel.
Arriba
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 93
Enlace directo a este mensaje Enviado: 13/Marzo/2017 a las 03:16
Gracias AnSanVal, como siempre muy oportuno y precisa tu respuesta.
Funciona muy bie.
Solo quisiera agregar algo.
Si no me encuentro en la columna 5, me aparece el mensaje, pero el combobox se queda abierto. Existiría algún comando que lo cierre, en caso de no estar en la columna 5?

Gracias
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 4994
Enlace directo a este mensaje Enviado: 13/Marzo/2017 a las 17:07
Un MSGBOX (que yo sepa) solo puede ser cerrado por el usuario, Con ello Excel se asegura de que el usuario a leído el mensaje.


Lo que puedes hacer es utilizar otro tipo de cuadro de texto que se cierra solo después de un tiempo programado por ti, por ejemplo:

CreateObject("wscript.shell").popup "No está en la columna correcta", 3, "JoaoM"

El 3 es el tiempo.


Pregunta lo que no sabes, recuérdalo para cuando te pregunten y ofrece tu ayuda (reconforta).

Mi sitio_web con ejemplos Excel.
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Alcalá Meco
Estado: Sin conexión
Puntos: 2928
Enlace directo a este mensaje Enviado: 14/Marzo/2017 a las 02:59
¿Quieres que se cierre el combobox o la ventna del mensaje?

Un saludo.

Luis
Quod natura non dat, Salmantica non præstat
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 4994
Enlace directo a este mensaje Enviado: 14/Marzo/2017 a las 19:08
¡Gracias Luis! Ya no se ni leer. Leí ComboBox (seguro) pero la imagen en mi mente fue de MsgBox. Embarrassed

Gladiador: ¿Que quieres decir con «... el combobox se queda abierto...». ?, ¿Que se sigue viendo?, ¿Qué está desplegado?, ¿Otra cosa diferente?
Pregunta lo que no sabes, recuérdalo para cuando te pregunten y ofrece tu ayuda (reconforta).

Mi sitio_web con ejemplos Excel.
Arriba
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 93
Enlace directo a este mensaje Enviado: 14/Marzo/2017 a las 19:29
Gracia amigos.
Si, el combobox, sigue desplegado

Gracias
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 4994
Enlace directo a este mensaje Enviado: 15/Marzo/2017 a las 00:28
El problema lo generas tú al utilizar el evento DropButtonClick para realizar una tarea (en tu caso mostrar un mensaje). Cuando cierres el mensaje el ComboBox se queda esperando que tu elijas un elemento de la lista. Cuando hagas clic en uno de los elementos de la lista se plegará, salvo que emplees el evento Clic para realizar alguna otra tarea.   :-(

Lo normal es que elijas un elemento de la lista y mediante un botón de comando (para eso están) realices la(s) tarea(s) que creas oportuno.




Editado por AnSanVal - 15/Marzo/2017 a las 00:34
Pregunta lo que no sabes, recuérdalo para cuando te pregunten y ofrece tu ayuda (reconforta).

Mi sitio_web con ejemplos Excel.
Arriba
Encarnika Ver desplegable
Habitual
Habitual


Unido: 24/Noviembre/2009
Estado: Sin conexión
Puntos: 146
Enlace directo a este mensaje Enviado: 15/Marzo/2017 a las 09:38
cerrar hilo, gracias
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 4994
Enlace directo a este mensaje Enviado: 15/Marzo/2017 a las 14:55
Encarnika: No parece que seas la misma persona que «Gladiador» ...  ¿O si?
Pregunta lo que no sabes, recuérdalo para cuando te pregunten y ofrece tu ayuda (reconforta).

Mi sitio_web con ejemplos Excel.
Arriba
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 93
Enlace directo a este mensaje Enviado: 15/Marzo/2017 a las 16:36
Hola buen dia a todos.
AnSanVal, gracias por tu sugerencia. Si, el hecho de tener DropButtonClick,hace el mantenga desplegado. por eso, lo he cambiado a ComboBox1_Click.
Gracias,
Ya se puede cerrar el Hilo

Gladiador
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable