MsgBox

03/10/2007 - 03:19 por Beneco | Informe spam
Muy buenas a todos de ante mano mil gracias por su colobaraciòn.

Tengo la versiòn de excel 2003.
En un ComboBox tengo el sgte còdigo, que lo que hace es seleccionar un
elemento de la lista:
Private Sub UserForm_Activate()
Dim item As Variant
For Each item In Range("F1:F6")
ComboBox.AddItem item.Value
Next item
End Sub

Lo que quiero es añadirle còdigo para que me muestre un mensaje, cuando
seleccione un elemento que no se encuentra en la lista.

El mensaje podrìa ser: Este cliente no existe desea crearlo?

S@lu2


Beneco
 

Leer las respuestas

#1 Beneco
04/10/2007 - 02:35 | Informe spam
Beneco


"Héctor Miguel" escribió:

hola, !

> En un ComboBox tengo el sgte codigo, que lo que hace es seleccionar un elemento de la lista:
> Private Sub UserForm_Activate()
> Dim item As Variant
> For Each item In Range("F1:F6")
> ComboBox.AddItem item.Value
> Next item
> End Sub
> Lo que quiero es a#adirle codigo para que me muestre un mensaje
> cuando seleccione un elemento que no se encuentra en la lista.
> El mensaje podria ser: Este cliente no existe desea crearlo?

1) [creo que] va a estar dificil *seleccionar* de un combo algun elemento que no este en la lista -?-
a menos [obviamente] que el combo tambien haga las veces de cuadro de edicion y lo telcees en el -?-

2) de ser dato introducido en el cuadro de edicion del combobox, la siguiente ves que llenes el combo...
[seguramente] ya no estariamos hablando del rango "F1:F6"
[aunque existen otros mecanismos para asignar los elementos a cuadros de lista y combos]

3) una -posible- alternativa es que dentro de los elementos que mandas al combo [ya sea el primero o el ultimo]
sea un texto-elemento como "Agregar nuevo [datos/clientes/...]"
y en el evento '_change' del combo compruebes si el .ListIndex es 0 [cero] o .ListCount -1 [el ultimo]
caso en el podrias solicitar confirmacion por un MsgBox para [cancelar o] agregar los datos nuevos :)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.




Disculpa Hector, parece que formulè mal la pregunta.

Es que el ListBox lo tengo en un FORMULARIO. Con el còdigo que te menciono
puedo seleccionar valores de la lista que se encuentra en la Hoja1.

El pròposito es que si el usuario digite algo que no este en la lista me
despliegue un mensaje y me de por ejemplo la posibilidad de abrir la Hoja2.

Sheets("Hoja2").Select

Preguntas similares