ListBox.Selected
Hola Elsa
¿Cómo puedo utilizar éste código "ListBox1.Selected( ) = True" al abrirlo me seleccione
más de uno a la ves? Ya que tengo una lista de 600 Items y quiero que al abrir un
UserForm me señale 300 Items, dejando en claro que está en Extended.
Si hay otro código mejor.
Por ejemplo:
Private Sub UserForm_Initialize()
ListBox1.RowSource = "G1:G600"
ListBox1.Selected(0) = True
ListBox1.Selected(1) = True
ListBox1.Selected(2) = True...
End Sub
¿Cómo hago para no tener que poner tantas fórmulas hasta llegar a 300 de 600?
Gracias!
¿Cómo puedo utilizar éste código "ListBox1.Selected( ) = True" al abrirlo me seleccione
más de uno a la ves? Ya que tengo una lista de 600 Items y quiero que al abrir un
UserForm me señale 300 Items, dejando en claro que está en Extended.
Si hay otro código mejor.
Por ejemplo:
Private Sub UserForm_Initialize()
ListBox1.RowSource = "G1:G600"
ListBox1.Selected(0) = True
ListBox1.Selected(1) = True
ListBox1.Selected(2) = True...
End Sub
¿Cómo hago para no tener que poner tantas fórmulas hasta llegar a 300 de 600?
Gracias!
1 Respuesta
Respuesta de Elsa Matilde
1
Creo que ya hemos hablado de este tema, ¿o no?
Si ahora solo necesitás que esté seleccionado parte del rango podes colocar esa cantidad en una variable.
Como aquí de los 600 necesitás solo 300, tomé el total y lo dividí por 2, pero bien podías haber colocado el valor 300 en la variable finsel
Así quedaría la rutina entonces, todo en el evento Initialize
Private Sub UserForm_Initialize()
ListBox1.RowSource = "G1:G600"
Dim i As Integer
finsel = (ListBox1.ListCount - 1) / 2
For i = 0 To finsel
ListBox1.Selected(i) = True
Next i
End Sub
Sdos
PD) Esta consulta debiera estar en la sección Excel, así los usuarios tendrían otra opción a tu consulta ya finalizada ;)
Si ahora solo necesitás que esté seleccionado parte del rango podes colocar esa cantidad en una variable.
Como aquí de los 600 necesitás solo 300, tomé el total y lo dividí por 2, pero bien podías haber colocado el valor 300 en la variable finsel
Así quedaría la rutina entonces, todo en el evento Initialize
Private Sub UserForm_Initialize()
ListBox1.RowSource = "G1:G600"
Dim i As Integer
finsel = (ListBox1.ListCount - 1) / 2
For i = 0 To finsel
ListBox1.Selected(i) = True
Next i
End Sub
Sdos
PD) Esta consulta debiera estar en la sección Excel, así los usuarios tendrían otra opción a tu consulta ya finalizada ;)
Hola!
Intenté con tu código pero me salió solamente seleccionado el 301 en azul, hice varias
pruebas con cambiar la variable finsel por 300 y no me resultó, en todo caso si no se
puede pues entonces me conformo con que queden seleccionados los 600 en listobox
si es posible.
Gracias!
Intenté con tu código pero me salió solamente seleccionado el 301 en azul, hice varias
pruebas con cambiar la variable finsel por 300 y no me resultó, en todo caso si no se
puede pues entonces me conformo con que queden seleccionados los 600 en listobox
si es posible.
Gracias!
Perdón Elsa
Tenía el ListBox en Single, ya que estaba intentándolo en otro UserForm nuevo,
disculpas del caso.
En cuanto que hemos hablado del tema pues es parecido pero no sé cuántas veces
puedo estar haciéndole tantas preguntas por eso a veces cambio de Expertos, pero
usted ha sido muy acertada en las respuestas por eso la tengo como de Favorita.
Gracias por la ayuda!
Tenía el ListBox en Single, ya que estaba intentándolo en otro UserForm nuevo,
disculpas del caso.
En cuanto que hemos hablado del tema pues es parecido pero no sé cuántas veces
puedo estar haciéndole tantas preguntas por eso a veces cambio de Expertos, pero
usted ha sido muy acertada en las respuestas por eso la tengo como de Favorita.
Gracias por la ayuda!
