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


.