Pasar datos de textbox a listbox

Buenos días necesito pasar los datos de varios textbox a un listbox pero uno al lado del otro.

en el user tengo dos combo y dos textbox

cmbcodigo    cmbdescripcion  txt cantidad   txt precio

cuando pongo el código automáticamente se me llenan los demás y necesito que al presionar un botón me pase los datos que están en los txt y cmb  al listbox uno al lado del otro

Ej

código (cmbcodigo)                           1234

Descripcion (cmbdescripcion)           Remera

Cantidad    (txtcantidad)                        3

Precio        (txtprecio)                         $125 

al presionar el boton el listbox debe quedar asi

1234                       remera                  3                      125

Espero me puedan ayudar

Gracias

Respuesta
1

Te anexo la macro

Private Sub CommandButton1_Click()
'Por.Dante Amor
    ListBox1.ColumnCount = 4
    ListBox1.AddItem cmbcodigo
    ListBox1.List(ListBox1.ListCount - 1, 1) = cmbdescripcion
    ListBox1.List(ListBox1.ListCount - 1, 2) = txtcantidad
    ListBox1.List(ListBox1.ListCount - 1, 3) = txtprecio
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas