Macro para sumar varias columnas

[nickmartinez]

Que tal saludos para todos quisiera saber si alguien me  puede ayudar con una macro que me identifique las columnas con datos (como un currentregion)y sume su valores al final de cada cada columna muchas gracias por su colaboracion

Libro1.xlsx

[JSDJSD]

Hola   nickmartinez , prueba el adjunto y comenta

Libro1Prueba(1).xlsb

[JSDJSD]

Este es el resultado.....

[nickmartinez]

muchisimas gracias me sirve estupendo una ultima cosa para terminar de comprender el codigo de donde sale esto Range("Av1")? pense que Av1 era el nombre de un rango pero no lo es o al menos yo no lo veo

 

[JSDJSD]

Hola,    cambia la línea que tienes de color amarillo por la nueva de color verde para que lo comprendas mejor.

Uc = Range("Av1").End(xlToLeft).Column
Uc = Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column

[nickmartinez]

Perfecto,estoy muy agradecido saludos

[ikanni]

Hola NickMartinez y JSDJSD,

La solucion de JSDJSD está perfecta.

Pero bueno me he preguntado sí se podría hacer solo con un bucle en vez de con dos.

Y sí se puede. Aquí va otra manera pero con un solo bucle.

Espero os guste.?

 

SumaColumnas.xlsm

[nickmartinez]

Muchas gracias ikanni esta SUPER tu aporte,es bueno llegar a roma por otro camino jeje,gracias a todos  (Ikanni,JSDJSD) son geniales