listbox

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 + 1
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






"Gilro" escribió en el mensaje
news:338401c4a833$c20b3790$

Que tal, como siempre espero contar con su ayuda

Estoy utilizando un control ListBox con parametro
fmMultiSelectMulti, este contiene un total de 26 elementos
de los cuales solo necesito seleccionar 5, como puedo
hacer para que el usuario ya no pueda seleccionar mas de 5
elementos o que mande algun mensaje para indicar que ha
seleccionado mas de 5 elementos

Saludos
Gil Romero

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 + 1
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






"Gilro" escribió en

el mensaje

news:338401c4a833$c20b3790$

Que tal, como siempre espero contar con su ayuda

Estoy utilizando un control ListBox con parametro
fmMultiSelectMulti, este contiene un total de 26

elementos

de los cuales solo necesito seleccionar 5, como puedo
hacer para que el usuario ya no pueda seleccionar mas

de 5

elementos o que mande algun mensaje para indicar que ha
seleccionado mas de 5 elementos

Saludos
Gil Romero

.