SUMAR TOTALES AL FINAL DE CADA COLUMNA

[omm821204]

Hola.

Quisiera saber que macro debo utilizar para conseguir que en todas las hojas sume los totales al final de las columnas BASE1 ; BASE2 ; IRPF ; TOTAL.

Sería posible que dejase una linea en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hola:

Aquí está la macro:

Sub InsertarTotales()
   
   Dim Fila As Long
   Fila = Range("A" & Rows.Count).End(xlUp).Row + 2
   Rows(Fila).Font.Bold = True
   Range("E" & Fila).Formula =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[alvarosol]

Hola,

te propongo otra solución:

<i>
</i>Sub sumar()
    nombres = Array("BASE1", "BASE2", "I.R.P.F.", "TOTAL")
    For i = 2 To Sheets.Count 'recorremos todas las hojas
        For j = 0...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[alvarosol]

Se me olvidó comentar que tal como lo he escrito recorre todas las hojas de excel desde la segunda hasta la última de todas, igual tienes que cambiar esos índices.

 

[omm821204]

Hola
Donde lo aplico, en un modulo?

 

[alvarosol]

hola,
sí en un módulo, como una macro normal.
saludos

 

[omm821204]

Buenos días.

Ha pasado ya un tiempo desde que os pedí un poco de ayuda. Después de aplicar el código en el modulo y comprobar que funciona a la perfección me encuentro con lo siguiente.

Una vez...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí