Sumar columnas al hallar la ultima fila con datos
Que tal comunidad una pregunta, como puedo a través de macros sumar datos de una columna y que los resultados aparezcan siempre debajo algo como así:
http://imgur.com/YdVFZnV quisiera que donde termina la autonumeracion en la columna Nº, baje a la fila en blanco se desplace a la columna debe y me sume los datos del debe y luego se desplace al haber y también me sume la columana del haber.
1 respuesta
Solo tiene que ajustarlo a tus columnas
Presiona alt + f11 esto te llevara al editor de vba aquí inserta in modulo y copia esta macro
Luego inserta un botón y agregale esta macro
Suponiendo que la columna
No° es la columna A
Debe es la columna B
Haber es la columna C
sub sumhd ()
wsuma1 = WorksheetFunction.Sum(Range("b3:b1000"))
wsuma2 = WorksheetFunction.Sum(Range("c3:c1000"))
Range("a100000").End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 1) = wsuma1
ActiveCell.Offset(0, 2) = wsuma2
end sub
Solo cambia la columna en tu caso
No olvides valor si te silve para cerrar la pregunta
$$\begin{align}&Saludos\end{align}$$
