Macro para insertar filas en blanco, respetando fórmulas

[laubreeze]

Hola. Tengo una base en la que por columnas introduzco diferentes datos. Necesito una macro que me cree filas en blanco para introducir nuevos registros, pero no me elimine el formato y las fórmulas, porque sin ellas el resto de la base no tiene sentido, y las personas que le darán uso no estarán atentas para arrastrar las fórmulas de las otras filas hacia las nuevas. Solo conseguí la macro que crea filas nuevas, pero me copia el valor de la fila superior, y si ordeno limpiar las celdas no consigo que me respete las fórmulas. A ver si alguien me puede ayudar, muchas gracias.

[Toldeman]

Hola.

Sube un pequeño ejemplo de lo que quieres hacer e indica los resultados esperados.

Saludos.

[Janlui]

Te pongo este ejercicio y adáptalo a tu reporte, en la macro te indico los cambios que pudieras hacer

Espero te sirva. Suerte

Inserta Linea.xlsm

[Antoni]

Más o menos esto podría valer, pero tal como te recomienda el amigo Toldeman, mejor sube tu archivo.

Application.ScreenUpdating = False
x = Range("A" & Rows.Count).End(xlUp).Row
Rows(x + 1).Insert
Rows(x).Copy: Rows(x + 1).PasteSpecial xlFormats
For Each celda In Rows(x).SpecialCells(xlFormulas)
   celda.Copy celda.Offset(1)
Next

 

[laubreeze]

Muchísimas gracias a todos. He ido directa a probar la macro que me había dejado masticadísima JanLui y me ha salvado de un apuro. Genial!!!! Muy muy muy agradecida. Va de maravilla y es exactamente lo que quería.