En este grupo En todos

Foro de Excel



pasar datos de un textbox a un listbox

Escrito por Antonio Tamez
el 17/10/2008

Hola buenos dias
despues de unos dias de ausencia y de estudiar mucho, me surgio una nuieva duda

tengo en un userform una cierta cantidad de textbox y un listbox

lo que quiero hacer es lo siguiente:

Despues de que completo una captura le doy click al boton aceptar y este me guarda lo que tenia en los textbox en el listbox y me deja realizar una nueva captura, y asi sucesivamente hasta que complete todas las capturas requeiridas y despues de eso, al darle click al boton agregar me agregue todo el contenido del listbox en una hoja de excel que anexo mas abajo junto con la imagen de como esta hecho el userform

Espero que me puedas ayudar con eto porque la verdad si lo necesito bastante

Muchas gracias de antemano

Antonio



Ficheros adjuntos:
capturas
agregar
Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 17/10/2008
Pues y cuales son los codigos que usas? Porque no los muestras? No te parece que tu ¿Pregunta?   es algo redundante?

Abraham
Claudio Provoste
Los Lagos, Chile
Escrito por Claudio Provoste
el 17/10/2008

La  respuesta es  bastante sencilla.   Cambia las propiedades del listbox. La propiedad columncount debe ser la cantidad de columnas que tiene  tu listado. En tu caso son como 8 o nueve me parece. En La propiedad columnwidths(ANCHO COLUMNAS) debes agregar o calcular tu mismo en ancho de cada campo e ingresarlas de esta manera por ejempo: 40;54;60;60;60;60;60;60, si fueran 8 columnas. Eso debes calcularlo tu.

Una vez hecho eso en tu boton agregar debes escribir un codigo parecido a este:

"lista por supuesto es el nombre del listbox


Private sub botonagregar_click()

Dim a as long

A=lista. Listcount

Lista. Additem textbox1. Text

Lista. List(a,1)=  textbox2. Text

Lista. List(a,2)=textbox3. Text

Lista. List(a,3)= textbox4. Text

End sub


En el boton limpiar simplemente agregas:

Lista. Clear


Y por último en el boton de abajo donde pasas los datos a la hoja debes hacer algo parecido a esto:

Private sub botonañadir_clik()

Dim x as long

Dim r as long

R=0

X=0

For x= 1 to lista. Listcount

Cells(x,1)= lista. List(r,0)

Cells(x,2)=lista. List(r,1)

Cells(x,3)=lista. List(r,2)

Cells(x,4)=lista. List(r,3)

R= r  +1

Next x

End sub


Bueno, tu arreglas este codigo a tu manera segun lo que quieras hacer

Si no entendiste mucho o necesitas ayuda en esto mi correo es claupro_1977@yahoo. Es

Hasta pronto