Jump to content
fersanvel

Pasar datos de textbox y combobox a listbox

Recommended Posts

Hola amigos , espero me puedan ayudar:

Mi problema es el siguiente, quiero agregar a un LISTBOX los valores de varios TEXTBOX Y COMBOBOX en varias columnas, pero solo me agrega 9 valores, despues del 10 me arroja un error...

Les dejo el script VBA, espero me puedan ayudar....saludos....FERSANVEL

Private Sub agregar_Click()

Dim a As Long

a = Lista.ListCount

Lista.AddItem banca.Value
Lista.List(a, 1) = cr.Value
Lista.List(a, 2) = sucs.Value
Lista.List(a, 3) = area.Value
Lista.List(a, 4) = concepto.Value
Lista.List(a, 5) = proveedor.Value
Lista.List(a, 6) = cantidad.Value
Lista.List(a, 7) = costounitario.Value
Lista.List(a, 8) = totalinversion.Value
Lista.List(a, 9) = totalgasto.Value
Lista.List(a, 10) = subtotalfactura.Value
Lista.List(a, 11) = iva.Value
Lista.List(a, 12) = totalfactura.Value
Lista.List(a, 13) = numfactura.Value
Lista.List(a, 14) = divisa.Value
Lista.List(a, 15) = tipocambio.Value
Lista.List(a, 16) = fecha.Value
Lista.List(a, 17) = zona.Value


End Sub[/CODE]

Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy