Vaciar datos de Listbox a hoja de excel 2007
Deseo vaciar datos de dos listbox a hoja de excel, que cuando le de guardar se genere en excel
lstdescripcion lstPago
xxxxxxxxxxxxxxxxxxxxx 20
xxxxxxxxxxxxxxxx 30
y si deseo agregar un nuevo registro en listbox se guarde los datos a partir del ultimo registro guardado... gracias por la ayuda
lstdescripcion lstPago
xxxxxxxxxxxxxxxxxxxxx 20
xxxxxxxxxxxxxxxx 30
y si deseo agregar un nuevo registro en listbox se guarde los datos a partir del ultimo registro guardado... gracias por la ayuda
1 respuesta
Respuesta de Luis Mondelo
1
Para volcar los datos seleccionados en los 2 listbox en la primera celda libre de la columna A sería así:
sub volcar_datos()
filalibre = range("a10000").end(xlup).row+1
cells(filalibre,1).value = activesheet.listbox1.value
cells(filalibre+1,1).value = activesheet.listbox2.value
end sub
En cuanto a agregar nuevos datos al listbox te puedo aconsejar que lo hagas creando un rango dinámico y luego lo dejas escrito en la propiedad listfillrange del control con la siguiente formula:
=desref(b1;0;0;contara(b:b))
(Suponiendo que los datos que queremos guardar en el listbox están en la columna b empezando desde b1)
Y otro rango dinámico para el otro listbox
sub volcar_datos()
filalibre = range("a10000").end(xlup).row+1
cells(filalibre,1).value = activesheet.listbox1.value
cells(filalibre+1,1).value = activesheet.listbox2.value
end sub
En cuanto a agregar nuevos datos al listbox te puedo aconsejar que lo hagas creando un rango dinámico y luego lo dejas escrito en la propiedad listfillrange del control con la siguiente formula:
=desref(b1;0;0;contara(b:b))
(Suponiendo que los datos que queremos guardar en el listbox están en la columna b empezando desde b1)
Y otro rango dinámico para el otro listbox
