listbox FER

No entiendo, yo lo probe y anda bien

Si queres cambiar la seleccion cliquea sobre un item

automaticamente se deselecciona y luego elegis el que

Saludos, fer


"Gil Romero"

news:033f01c4acc5$7b14c4f0$
Gracias Fer, funciona correctamente, solo hay un detalle,
al momento que seleccionó el sexto elemento me envia el
mensaje de que no se pueden seleccionar mas de 5 items,
hasta aquí esta perfecto, pero al momento de darle aceptar
me deja seleccionado el sexto elemento y me quita el
quinto elemento y necesito que queden seleccionados solo
los primeros cinco elementos que seleccione

Espero me puedas ayudar, de antemano gracias

Hola Gilro:
Prueba esto dentro del userform.

Private Sub ListBox1_Change()
Dim r As Integer
Dim elegido As Integer

elegido = 0

For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then elegido = elegido +

If elegido = 6 Then
ListBox1.Selected(r) = False
MsgBox "No se pueden selecionar más de 5

items", 16

Exit Sub
End If
Next

End Sub

.