Estoy realizando una macro, necesito que sume un rango de celdas de una columna
Estoy realizando una macro, necesito que sume un rango de celdas de una columna pero solo los valores mayores a 1 (sumar.si(A1;"<1")
Los rangos de filas dentro de la columna son variables, por lo que la idea es hacer Ctrl + Shif Down y pegar la formula.
1 Respuesta
Respuesta de Luis Mondelo
1
Mándame el archivo con los datos y un ejemplo de lo que quieres para poder ayudarte
Ejecuta esta macro en tu hoja según esta:
Sub ejemplo()
'por luismondelo
fila = 1
Range("c65000").End(xlUp).Offset(1, 0).Value = "end"
Range("c6").Select
Do While ActiveCell.Value <> "end"
valor = ActiveCell
contarsi = Application.WorksheetFunction.CountIf(Columns(ActiveCell.Column), valor)
Do While ActiveCell.Value = valor
If ActiveCell.Offset(0, 2).Value < 0 Then GoTo salto
suma = suma + ActiveCell.Offset(0, 2).Value
salto:
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then ActiveCell.Offset(1, 0).Select
Loop
Cells(fila, 11).Value = valor
Cells(fila, 12).Value = suma
fila = fila + 1
suma = 0
Loop
ActiveCell.ClearContents
MsgBox "El resumen por tipo está hecho en las columnas K y L"
Range("k1").Select
End Subrecuerda finalizar la consulta
