Manejo de listbox

[edwingaleano]

Buen dia para todos

Ya llevo un tiempo trabajando macros, sin embargo nunca he trabajado listbox para lo cual recurro a la valiosa ayuda que siempre he encontrado en este foro.

Se trata, esta vez, de un archivo a traves del cual el vendedor toma pedidos; el adjunto contiene el userform2 en el cual al digitar el codigo del producto se llena sola el label19 y el label22; al poner la cantidad el valor total del label 23 se actualiza. No lo he escrito pero lo se hacer, hasta aqui no hay problema.

Lo que quiero es que al dar clic en el CommandButton1 se vayan agregando los datos al listbox1, pero:

1. No se poner encabezados el listbox

2. No se alimentarlo desde textbox y labels

3. No se como agregar filas (Pueden ser hasta 500 productos)

4. No se como totalizar los valores de las columnas (Cantidad y valor total) y que me los muestre en los label 25 y 26.

Luego de esto, le creo un botón que lleve los datos a excel, antes no por que el vendedor debe validar la informacion.

Agradezco la ayuda que me puedan brindar.

Edwin Alexander Galeano

[edwingaleano]

ya pude solucionarlo; les dejo el codigo que escribi si alguien le sirve

Private Sub CommandButton1_Click()

pedidos.Select

Range("a1048576").End(xlUp).Offset(1, 0).Select

ActiveCell = TextBox1

ActiveCell.Offset(0, 1) = Label19

ActiveCell.Offset(0, 2) = TextBox2

ActiveCell.Offset(0, 3) = Label22

ActiveCell.Offset(0, 4) = Label23

a = ListBox1.ListCount

ListBox1.AddItem

ListBox1.List(a, 0) = ActiveCell

ListBox1.List(a, 1) = ActiveCell.Offset(0, 1)

ListBox1.List(a, 2) = ActiveCell.Offset(0, 2)

ListBox1.List(a, 3) = ActiveCell.Offset(0, 3)

ListBox1.List(a, 4) = ActiveCell.Offset(0, 4)

TextBox1 = Empty

TextBox2 = Empty

TextBox1.SetFocus

End Sub