Macro para poder sumar
Buenas, ojala que un experto pueda solucionarme esto
A B C
(suma)
valor1
valor2
valor3
valor4
(vacio) (vacio)
(suma)
valor1
valor2
Como pueden ver necesito un macro para poder sumar desde donde dice suma asu lado izquierdo hasta la ultima celda llena, que como lo es el valor4, pero el inconveniente es que no siempre son 4 valores . Espero que por favor me puedan ayudar, de antemano gracias.
A B C
(suma)
valor1
valor2
valor3
valor4
(vacio) (vacio)
(suma)
valor1
valor2
Como pueden ver necesito un macro para poder sumar desde donde dice suma asu lado izquierdo hasta la ultima celda llena, que como lo es el valor4, pero el inconveniente es que no siempre son 4 valores . Espero que por favor me puedan ayudar, de antemano gracias.
1 Respuesta
Respuesta de Cadipas spain
1
Lo he realizado con macros, si por algún motivo desconoces el tema y no sabes como utilizarlas, dímelo y te ayudo a insertarla en el fichero.
Sub totaliza()
ultimafila = ""
If ultimafila = "" Then primerafila = 65500
Do While primerafila <> ""
ultimafila = Cells(primerafila, 2).End(xlUp).Row
primerafila = Cells(ultimafila, 2).End(xlUp).Row
If ultimafila = primerafila Then Exit Do
Range(Cells(ultimafila, 3), Cells(primerafila - 1, 3)) = ""
total = 0
For Each sumando In Range(Cells(ultimafila, 2), Cells(primerafila, 2))
total = total + sumando
Next
Cells(primerafila - 1, 3) = total
Loop
End Sub
Sub totaliza()
ultimafila = ""
If ultimafila = "" Then primerafila = 65500
Do While primerafila <> ""
ultimafila = Cells(primerafila, 2).End(xlUp).Row
primerafila = Cells(ultimafila, 2).End(xlUp).Row
If ultimafila = primerafila Then Exit Do
Range(Cells(ultimafila, 3), Cells(primerafila - 1, 3)) = ""
total = 0
For Each sumando In Range(Cells(ultimafila, 2), Cells(primerafila, 2))
total = total + sumando
Next
Cells(primerafila - 1, 3) = total
Loop
End Sub
