Macro para sumar
Con la grabadora de macros cree una macro que suma celdas hacia arriba a partir de una celda activa asi: ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)".. Esto esta muy bien porque contiene 2 celdas con datos hacia arriba, pero si en caso tuviera solamente 1 celda con datos o mas de 2 celdas con datos ¿como sería la macro?..lo que deseo es que la macro me sume solamente las celdas con datos a partir de la celda activa hacia arriba...Gracias de antemano
1 respuesta
Esta sería la macro
Sub suma4()
'suma celdas activas
'Por.Dam
col = ActiveCell.Column
lin = ActiveCell.Row
ActiveCell.Offset(-1, 0).Select
linfin = ActiveCell.Row
Selection.End(xlUp).Select
linini = ActiveCell.Row
wsuma4 = WorksheetFunction.Sum(Range(Cells(linini, col), Cells(linfin, col)))
Cells(lin, col) = wsuma4
End Sub
Saludos. Dam
