Saltar al contenido

Macro para insertar filas en blanco, respetando fórmulas


Recommended Posts

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.

Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.