insertar filas en excel y que mantengan la informacion

[mrocf]

Hola! Coopérnico.

1º) Haz clic con el botón derecho de tu ratón en la solapa de la hoja en la que deseas el efecto, y selecciona "Ver código".

2º) Se te abrirá una ventana, en la que pondrás el siguiente código:

Código VB:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
' Si no se inserta una fila completa, el código no se ejecuta
If .Columns.Count <> [1:1].Columns.Count Then Exit Sub
 
' Si no se inserta una sola fila, el código no se ejecuta
If .Rows.Count > 1 Then Exit Sub
 
Application.EnableEvents = False
  [b1].Copy Cells(.Row, "B") ' Se copia B1
  [c1].Copy Cells(.Row, "C") ' Se copia C1
End With
Application.EnableEvents = True
End Sub
 

3º) Cierra todas las ventanas del ambiente Visual Basic for Application (VBA) en el que te encuentras y retorna al Excel.

Inserta una nueva fila donde lo desees, y comenta -por favor- tus impresiones.

Saludos, Cacho.