Macro sumar rangos en columna
Necesito una macro. Tengo una columna donde arrojo una lista de valores, pero no esta definido el rango en el que aparecen. Puede ser desde la J1 hasta J3000 o infinito.. La idea es que me sume esos valores y los totalice con raya para la suma después del último valor detectado.
Esto en formato $ y negrita el total.
$30.000
$15.000
$30.000
$75.000
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando la solución. Ejecuta esta macro y todo listo:
Sub hacer_suma()
Range("j65000").End(xlUp).Offset(1, 0).Select
Final = ActiveCell.Offset(-1, 0).Address
ActiveCell.Value = Application.WorksheetFunction.Sum(Range("j1", Final))
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
End Subrecuerda finalizar y puntuar
Luis. si funcionan muy bien en el objeto de la hoja
Pero como tengo todo en thisworkbook no me resulta ejecutarla o llamarla
seleccione la hoja, pero creo que no es asi ?
Sub hacer_suma()
Sheets("HOJA1").Select
Range("j65000").End(xlUp).Offset(1, 0).Select
Final = ActiveCell.Offset(-1, 0).Address
ActiveCell.Value = Application.WorksheetFunction.Sum(Range("j1", Final))
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
End Sub
Esta macro tiene que estar en un módulo
