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

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

no queda muy claro lo que querés hacer, igual te dejo algo que te puede servir...



Saludos, desde Baires, JuanC

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

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

Gracias hermano, me ayudaste muchisimo. te debo una
adrian

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

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