listbox

Gracias Fer, funciona perfectamente, solo un detalle, el
usuario puede repetir este procedimiento un numero
indeterminado de veces, como puedo hacer para que cada que
seleccione nuevos elementos me borre el contenido de la
anterior conculta

Te agradecere mucho tu ayuda
Saludos
Gil Romero

hi, Gilro:

fila = 1
For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then
cells(fila,1)= ListBox1.List(r)
fila=fila+1
End If
next r

Saludos, fer


"Gilro" escribió en

el mensaje

news:3fdd01c4a5cc$2c012340$

Espero me puedan ayudar

Como hago para que la selección de un listbox caiga en una
celda especifica - tratandose de una selección multiple -,
es decir, si selecciono 2 o mas elementos de un listbox
que estos caigan, por ejemplo, de la celda "a1" hacia

abajo

Saludos
Gil Romero


.

No entiendo si podés aclarar más mejor

Si querés borrar todas las celdas antes que se ejecute nuevamente el
programa coloca esto al comienzo del código antes del for next

Columns("A:A").ClearContents

Pero si lo que querés borrar es la selección del listbox, coloca esto
después del for next

For r = 0 To ListBox1.ListCount - 1
ListBox1.Selected(r) = False
Next r

Saludos, fer


"Gilro" escribió en el mensaje
news:10a201c4a679$f2fa7390$
Gracias Fer, funciona perfectamente, solo un detalle, el
usuario puede repetir este procedimiento un numero
indeterminado de veces, como puedo hacer para que cada que
seleccione nuevos elementos me borre el contenido de la
anterior conculta

Te agradecere mucho tu ayuda
Saludos
Gil Romero

hi, Gilro:

fila = 1
For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then
cells(fila,1)= ListBox1.List(r)
fila=fila+1
End If
next r

Saludos, fer


"Gilro" escribió en

el mensaje

news:3fdd01c4a5cc$2c012340$

Espero me puedan ayudar

Como hago para que la selección de un listbox caiga en una
celda especifica - tratandose de una selección multiple -,
es decir, si selecciono 2 o mas elementos de un listbox
que estos caigan, por ejemplo, de la celda "a1" hacia

abajo

Saludos
Gil Romero


.

hi, Gilro:

fila = 1
For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then
cells(fila,1)= ListBox1.List(r)
fila=fila+1
End If
next r

Saludos, fer


"Gilro" escribió en el mensaje
news:3fdd01c4a5cc$2c012340$

Espero me puedan ayudar

Como hago para que la selección de un listbox caiga en una
celda especifica - tratandose de una selección multiple -,
es decir, si selecciono 2 o mas elementos de un listbox
que estos caigan, por ejemplo, de la celda "a1" hacia abajo

Saludos
Gil Romero