Acumular valor Listbox " Luis Mondelo "
Hola Luis, me funcionó perfectamente.
pero ahora me ha surgido un problema, si quisiera acumular dentro de ese listbox el valor de la columna 6 para después mostrarlo en Listbox2.
Gracias y saludos de antemano
Private Sub UserForm_Initialize()
'por luismondelo
Sheets("datos").Select
Range("a2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.EntireRow.Hidden = False Then
ListBox1.AddItem ActiveCell
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = ActiveCell.Offset(0, 1)
ListBox1.List(i, 2) = ActiveCell.Offset(0, 2)
ListBox1.List(i, 3) = ActiveCell.Offset(0, 3)
ListBox1.List(i, 4) = ActiveCell.Offset(0, 4)
ListBox1.List(i, 5) = ActiveCell.Offset(0, 5)
ListBox1.List(i, 6) = ActiveCell.Offset(0, 6)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
1 Respuesta
Necesito una aclaración:
En el listbox1 ya estamos guardando el valor de la columna 6 (desde la A hasta la G)
¿Qué significa acumular para ti?
¿Qué mostraremos en el listbox2?
quiero sacar la suma de esa columna en Listbox2. Perdón por la definición.
En el siguiente enlace te lo dejo programado
http://share.myflare.com/SdXBKD
Recuerda valorar la respuesta
