Como puedo marcar un rango en una columna con checkbox en Listbox y que se sume en un Textbox..
Tengo un listbox y necesito que con checkbox me marca una columna y a a su vez las celdas marcada me las sume y el resultado salgan en un textbox
1 respuesta
Respuesta de James Bond
1
A como lo explicas esta medio confuso, ¿puedes poner un ejemplo con una imagen de lo que quieres?
quiero Marcar las dos columnas que dicen Kosten desde La fila 1 hasta 200 y que se sumen en ese textbox que esta hi abajo
Eusebio
Las columnas como tal en un userform no pueden ser seleccionadas de la manera como se hace con los renglones, la macro que esta abajo de esta lo que hace es sumar las columnas kosten por separado y luego suma los totales individuales y las colocan en el textbox.
y este es el codigo
Private Sub UserForm_Initialize()
Set DATOS = Range("A1").CurrentRegion
With DATOS
F = .Rows.Count: C = .Columns.Count
Set DATOS = .Rows(2).Resize(F, C)
With ListBox1
.ColumnCount = C
.ColumnHeads = True
.RowSource = DATOS.Address
matriz = ListBox1.List
End With
With WorksheetFunction
suma = .Sum(.Index(matriz, 0, 7))
suma2 = .Sum(.Index(matriz, 0, 8))
TextBox1.Text = suma + suma2
End With
End With
End Sub
