Prevenir copiar encima de totales lista

... con el siguiente codigo paso los datos de mis facturas a una base de datos (lista)
pero tengo un total calculado para cada columna al final de la lista que debo mantener
se puede prevenir que la copia "pise" o machaque los totales
insertando siempre una fila en blanco al final u otra forma?

With Workbooks("FAC" & Ejercicio).Worksheets(Mes)
With .Range("a" & .Range("i" & Rows.Count).End(xlUp).Row)
.Offset(1).Resize(, 9) = Datos_Factura
End With
End With

hola, domingo !

> ... con el siguiente codigo paso los datos de mis facturas a una base de datos (lista)
> pero tengo un total calculado para cada columna al final de la lista que debo mantener
> se puede prevenir que la copia "pise" o machaque los totales
> insertando siempre una fila en blanco al final u otra forma?

> With Workbooks("FAC" & Ejercicio).Worksheets(Mes)
>    With .Range("a" & .Range("i" & Rows.Count).End(xlUp).Row)
>        .Offset(1).Resize(, 9) = Datos_Factura
>    End With
> End With

haz una prueba "manual" insertando una fila donde consideras que seeria necesaria
y despues, comprueba si "la formula" que utilizas para el "total calculado" (en las columnas que corresponda)
=>  "respeta" la fila insertada y la incluye en sus calculos (???)

y/o comenta que columnas y que formulas son las que necesitas proteger (?)

saludos,
hector.

=SUMA(E2:DESREF(E118;-1;0))
=SUMA(F2:DESREF(F118;-1;0))
... si inserto manualmente si me respeta porque tengo una suma condicional
el problema es si ejecuto la macro y no me he acordado de insertar una fila adicional al final del rango
entre las formulas de totales y la ultima fila (registro) ocupada, para incluir siguiente fila de la lista
me machaca las formulas, no se si me explico...

... con el siguiente codigo paso los datos de mis facturas a una base de datos (lista)
pero tengo un total calculado para cada columna al final de la lista que debo mantener
se puede prevenir que la copia "pise" o machaque los totales
insertando siempre una fila en blanco al final u otra forma?

With Workbooks("FAC" & Ejercicio).Worksheets(Mes)
With .Range("a" & .Range("i" & Rows.Count).End(xlUp).Row)
.Offset(1).Resize(, 9) = Datos_Factura
End With
End With

haz una prueba "manual" insertando una fila donde consideras que seeria necesaria
y despues, comprueba si "la formula" que utilizas para el "total calculado" (en las columnas que corresponda)
=> "respeta" la fila insertada y la incluye en sus calculos (???)

y/o comenta que columnas y que formulas son las que necesitas proteger (?)

hola, domingo !

> =SUMA(E2:DESREF(E118;-1;0))
> =SUMA(F2:DESREF(F118;-1;0))
> ... si inserto manualmente si me respeta porque tengo una suma condicional
> el problema es si ejecuto la macro y no me he acordado de insertar una fila adicional al final del rango
> entre las formulas de totales y la ultima fila (registro) ocupada, para incluir siguiente fila de la lista
> me machaca las formulas, no se si me explico...

cambia esta parte de tu codigo:

With Workbooks("FAC" & Ejercicio).Worksheets(Mes)
    With .Range("a" & .Range("i" & Rows.Count).End(xlUp).Row)
        .Offset(1).Resize(, 9) = Datos_Factura
    End With
End With

por esta otra:

With Workbooks("fac" & Ejercicio).Worksheets(Mes)
    With .Range("a65536").End(xlUp)
      .Offset(1).EntireRow.Insert
      .Offset(1).Resize(, 9) = Datos_Factura
    End With
End With

saludos,
hector.

__ previos __

>> ... con el siguiente codigo paso los datos de mis facturas a una base de datos (lista)
>> pero tengo un total calculado para cada columna al final de la lista que debo mantener
>> se puede prevenir que la copia "pise" o machaque los totales
>> insertando siempre una fila en blanco al final u otra forma?

>> With Workbooks("FAC" & Ejercicio).Worksheets(Mes)
>> With .Range("a" & .Range("i" & Rows.Count).End(xlUp).Row)
>> .Offset(1).Resize(, 9) = Datos_Factura
>> End With
>> End With

> haz una prueba "manual" insertando una fila donde consideras que seeria necesaria
> y despues, comprueba si "la formula" que utilizas para el "total calculado" (en las columnas que corresponda)
> => "respeta" la fila insertada y la incluye en sus calculos (???)

> y/o comenta que columnas y que formulas son las que necesitas proteger (?)