listbox FER

Gracias Fer, desafortunadamente tengo que lidiar con
usuarios especiales y precisamente tengo que evitar esto
que comentas, no se si exista otra forma

Saludos
Gil Romero

No entiendo, yo lo probe y anda bien

Si queres cambiar la seleccion cliquea sobre un item

seleccionado y este

automaticamente se deselecciona y luego elegis el que

quieras

Saludos, fer


"Gil Romero"

escribió en el mensaje

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 +

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

.

No entiendo, yo lo probe y anda bien

Si queres cambiar la seleccion cliquea sobre un item seleccionado y este
automaticamente se deselecciona y luego elegis el que quieras

Saludos, fer


"Gil Romero" escribió en el mensaje
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 + 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