¿Macro para sumar los valores de celdas en una fila?
Buenas tardes,
Alguien me podría ayudar?
Digamos que tengo estos valores
A B C D F G H I J
1 5 32 3 14 3 4 5
2 20 4 10 6 7 3 3
Quisiera saber como puedo sumar esos números y poner el total digamos en J1 Y J2 respectivamente, sin embargo asi como los valores pueden llegar hasta h, pueden llegar a J (el lugar donde se ponga el total se recorre), hasta D, en fin el donde terminan los valores no lo se,
El caso es que quedara algo asi
A B C D F G H I J
1 5 32 3 14 3 4 5 66
2 20 4 10 6 7 3 3 53
Saludos!
1 respuesta
Siguiendo ese ejemplo que tienes, en las filas 1 y 2 y desde A... esta sería la macro necesaria
Sub proceso()
'por luismondelo
If Range("iv1").End(xlToLeft).Interior.ColorIndex <> -4142 Then
Range("iv1").End(xlToLeft).Select
Range(ActiveCell, ActiveCell.Offset(1, 0)).Clear
End If
inicio1 = "a1"
inicio2 = "a2"
fin1 = Range("iv1").End(xlToLeft).Address(False, False)
fin2 = Range("iv2").End(xlToLeft).Address(False, False)
Range("iv1").End(xlToLeft).Offset(0, 1).Formula = "=sum(" & inicio1 & ":" & fin1 & ")"
Range("iv2").End(xlToLeft).Offset(0, 1).Formula = "=sum(" & inicio2 & ":" & fin2 & ")"
Range("iv1").End(xlToLeft).Interior.ColorIndex = 3
Range("iv2").End(xlToLeft).Interior.ColorIndex = 3
End Subrecuerda finalizar
