Visual Basic para Aplicaciones - pasar datos de un combo box multiple a una hoja de excel

Life is soft - evento anual de software empresarial
   
Vista:

pasar datos de un combo box multiple a una hoja de excel

Publicado por adrian adschat@yahoo.com.ar (3 intervenciones) el 06/02/2012 14:39:09
Hola Gente:
tengo un formulario en vba excel, que contiene un cuadro de lista con seleccion multiple, el problema es deseo que al seleccionar varias opciones, estas aparezcan en diferentes celdas, indicando si al seleccionar una opcion la puse activa o la desactive
Saludos y gracias
Adrian
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Buscador para Excel
- Secuencia aleatoria
- Cajero Automatico
Imágen de perfil de JuanC

pasar datos de un combo box multiple a una hoja de excel

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 11/02/2012 20:42:30
no queda muy claro lo que querés hacer, igual te dejo algo que te puede servir...

1
2
3
4
5
6
Dim i&
For i = 0 To ListBox1.ListCount - 1  '//Recorre todos los ítems del ListBox
    If ListBox1.Selected(i) Then
       '//Hacer algo con ListBox1.List(i)
    End If
Next


Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

pasar datos de un combo box multiple a una hoja de excel

Publicado por adrian (3 intervenciones) el 11/02/2012 21:11:48
Estimado JuanC
Gracias por tu respuesta, me orientaste bastante bien, pero aun tengo una cuestion mas para poder finalizar este tema
en el list box tengo nombres (digamos, juan, carlos y pedro). Se puede realizar una seleccion multiple. Lo que quiero es que por msgbox, o en varias celdas (o en otro listbox) me diga cuales son los nombres seleccionados.
hice lo siguiente y no me funciono
Dim i As Byte

For i = 0 To ListBox1.ListCount - 1
'//Recorre todos los ítems del ListBox
If ListBox1.Selected(i) Then
MsgBox ListBox1.ListCount - 1
End If
Next i

tampoco me funciono
Dim i As Byte

For i = 0 To ListBox1.ListCount - 1
'//Recorre todos los ítems del ListBox
If ListBox1.Selected(i) Then
MsgBox ListBox1.value
End If
Next i

Que estoy haciendo mal?
saludos
Adrian
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

pasar datos de un combo box multiple a una hoja de excel

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 12/02/2012 00:14:28
te lo puse a propósito en el post anterior...
debés usar ListBox1.List(i) para acceder al valor i del ListBox1

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

pasar datos de un combo box multiple a una hoja de excel

Publicado por adrian (3 intervenciones) el 13/02/2012 01:57:21
Gracias hermano, me ayudaste muchisimo. te debo una
adrian
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

pasar datos de un combo box multiple a una hoja de excel

Publicado por Noelia (1 intervención) el 18/03/2013 11:13:36
Buenos días!
Soy una novata en programación ( de hecho nunca he programado) pero creo que ha llegado un punto en Excel que no puedo avanzar si no es con programación...
Tengo un cuadro de lista con selección multiple y me gustaría poder hacer un recuento de los valores escogidos, tipo hoja de resumen o algo así. Pero por lo que veo... sin programar no encuentro la solución... y esto que explicais aquí podría ser lo que yo necesito.
Podrías explicarme como hacerlo o poner el cógido bueno entero?
Porque yo selecciono la lista, entro en códio y me aparece esto:

Private Sub ListBox1_Click()

End Sub

Que debo o como debo ponerlo???

Muchas gracias de antemano!!!

Noelia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

pasar datos de un combo box multiple a una hoja de excel

Publicado por Cristian Esteban Hernandez Gonzalez (1 intervención) el 12/01/2015 22:05:07
Noelia

Lo que te figura es el inicio del Codigo

Private Sub ListBox1_Click() // Aca te indica que al hacer Click Sobre el Listbox

Por ende todo el codigo que quieras al evento click, va entre esas dos lineas

End Sub (Termino de la Rutina)


Siguiente el ejemplo que daban

Private Sub ListBox1_Click()

Dim i&
For i = 0 To ListBox1.ListCount - 1 '//Recorre todos los ítems del ListBox
If ListBox1.Selected(i) Then
'//Hacer algo con ListBox1.List(i)
End If
Next

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar