Sumar rangos de celdas con VBA
Para Dante Amor.
Hola Sr. Dante hace poco ayudo a un usuario con esta macro:
c = Cells(7, Columns.Count).End(xlToLeft).Column
If c < Columns("H").Column Then c = Columns("I").Column
Range("H7") = Application.Sum(Range(Cells(7, Columns("I").Column), Cells(7, c)))
Lo que hace es que suma los valores de la derecha a partir de una celda, he estado practicando pero no he tenido buenos resultados, estoy haciendo que esta rutina me la haga desde la celda H7 hasta la celda H425 en una sola macro, sería tan amable de apoyarme.
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro actualizada
Sub sumar()
For i = 7 To 425
c = Cells(i, Columns.Count).End(xlToLeft).Column
If c < Columns("H").Column Then c = Columns("I").Column
Range("H" & i) = Application.Sum(Range(Cells(i, Columns("I").Column), Cells(i, c)))
Next
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
