Sumar columnas de un List Box
Una consulta es posible multiplicar las columna de un List Box con un text box
En la imagen se muestra un combo box, un List box y un text box en la cual lo que quiero cuando escriba la cantidad en el textbox y le doy click en Ver, que la primera columna del List box se multiplique con el text box y que el resultado se muestre en la columna 2
Los datos del List box se pre-cargan cuando selecciono un producto del combo box
Gracias por la atención prestada
Slds
Robert
2 Respuestas
esto es lo correcto .List(i, 1) = CStr(cant * data)
Me olvide de modificarlo
hola cesar
me sale el siguiente error
slds
robert
Te sigue saliendo el mismo problema o ya lo solucionaste
¡Gracias! Ya lo solucione gracias están buenos los códigos
con cualquiera de los códigos obtengo el resultado
slds
H o l a:
Pon lo siguiente código en el botón "Ver"
Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then Exit Sub For i = 0 To ListBox1.ListCount - 1 ListBox1.List(i, 1) = CDbl(ListBox1.List(i, 0)) * CDbl(TextBox1) Next End Sub
El código anterior funciona siempre y cuando hayas cargado los datos en el listbox1 con la instrucción Additem, si los cargaste con rowsource, entonces lo que hay que actualizar es la hoja, prueba y me comentas.
'
S a l u d o s . D a n t e A m o r
Si es lo que necesitas. Recuerda valorar la respuesta.
hola dante
me sale el siguiente error
slds
Robert
este es el código que estoy utilizando para precargar los datos en la cual al seleccionar el producto del combo box automáticamente me cargan sus insumos al List box.
Private Sub ComboBox1_Change()
Dim fila, a As Integer
ListBox1.Clear
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "55;55;55;1;55;100"
a = 0
fila = 2
While Sheets("PROD_BD").Cells(fila, 10) <> Empty
dato = ComboBox1
Var = Sheets("PROD_BD").Cells(fila, 10)
If Sheets("PROD_BD").Cells(fila, 10) = dato Then
a = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(a, 0) = Sheets("PROD_BD").Cells(fila, 1).Text
ListBox1.List(a, 1) = Sheets("PROD_BD").Cells(fila, 2).Text
ListBox1.List(a, 2) = Sheets("PROD_BD").Cells(fila, 5)
ListBox1.List(a, 3) = Sheets("PROD_BD").Cells(fila, 6)
Me.ListBox1.ListIndex = 0
End If
fila = fila + 1
Wend
Set h = Sheets("PROD_BD")
Set b = h.Columns("d").Find(ComboBox1, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox1.Text = Hoja8.Cells(b.Row, "h")
'Hoja8.Cells(b.Row, "h") = TextBox1.Text
End If
End Subslds
robert
Te pone ese error porque en la primera columna tienes letras, revisa bien los datos que tienes o que estás cargando en la primera columna. También debes poner un número en el textbox.
S a l u d o s