insertar filas en excel y que mantengan la informacion

[coopernico46]

Buenos días

Llevo unos dias tratando de propagar la información de unas celdas al insertar una fila nueva pero no consigo hacerlo y seguro que no es complicado pero creo que estoy ya tan saturado que no logro verlo así que me he decidido a preguntaros a ver si alguien puede echarme una mano.

Me explico:

Tengo un fichero con unos datos en las columnas de las filas 1y 2, segun sea la columna A, B, C o H he puesto valores fijos, celdas en blanco o formulas.

Pues bien, me interesaria saber como puedo hacer para que al insertar una nueva fila (fila 3)aquellas columnas (por ejemplo B y C) que tienen un valor fijo o una formula tengan en esta nueva fila (fila 3) el mismo valor fijo o la misma formula en esas columnas (columnas B y C) pues de momento solo me aparece la nueva fila insertada con las celdas en blanco.

Muchas gracias

[Monimo]

no se si insertas la fila a mano o con una macro, si es a mano, prueba con copiar esas celdas y poner: Insertar celdas copiadas, si traen formulas, seguro se copian y se insertan en automatico.

[coopernico46]

Las inserto a mano, mejor dicho las insertara el usuario final del fichero por lo que no puedo confiar en que haga un "insertar celdas copiadas". Por eso necesitaba saber si es posible en excel (mediante macro o formula) propagar los valores fijos o formulas de las celdas de filas anteriores.

[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.

[coopernico46]

Hola Mrocf

He probado la solucion que propones y creo que es valida pero no se aplicarla bien.

Iba a subir un fichero de ejemplo pero no se como subirlo al foro.... ¿me puedes ayudar a subir el fichero?

[mrocf]

--> Este Foro no incluye la posibilidad de subir un archivo. Puedes intentarlo con algún servicio externo y gratuito estilo MediaFire.

--> ¿Qué significa "... no se aplicarla bien ..."? ¿Seguiste las indicaciones antes mencionadas? ¿Qué ocurre cuando insertás una nueva fila?

Saludos, Cacho.

[coopernico46]

Vaya..desde el trabajo no tengo acceso a esas webs.... lo subiré desde casa.

Lo que queria decir cuando digo que no se aplicarlo bien.... es que lo he copiado donde dices pero al insertar una nueva fila, solo me copia los bordes (delimitan la celda) de esas dos columnas pero no incluyen ningún valor (estan en blanco).

Para ser mas especifico te diré que las filas comienzan la tabla comienza en la fila 8 y que las columnas son realmente la J y la K . He modificado esto en tu codigo pero nada no hay forma.

Si no te importa seguir ayudandome y no te es demasiada molestia esta tarde subo el fichero a internet porque a lo mejor me estoy explicando fatal.

[mrocf]

¡No hay problema!...
Sube el archivo -incluyendo la implementación que has hecho- para ver cual es el problema.

Sin embargo, es de esperar que hayas hecho 4 adecuaciones quedando:

Código vb:

[j8].Copy Cells(.Row, "J") ' Se copia J8
[k8].Copy Cells(.Row, "K") ' Se copia K8
 

Saludos, Cacho.

[coopernico46]

Buenas Mrocf


Te adjunto el link donde he dejado el fichero de ejemplo

http://myfreefilehosting.com/f/7c838c68d2_0.03MB


Como veras lo que necesito es que al posicionarme sobre la fila 9 pulsando sobre el boton derecho--> Insertar, me añada una línea donde las celdas J y K mantengan el valor de la fila 8 (estas columnas estan referenciadas a la hoja 1) y las columnas L y M igual aunque estas son texto.

[mrocf]

a) Bajé tu archivo

b) Hice
Botón derecho --> Insertar --> Insertar toda una fila

Y el código hace lo solicitado: ¿Por qué dices que no te funciona correctamente?

[coopernico46]

Me posiciono en la celda J9--> Boton derecho--> Insertar...--> Insertar toda una fila.

Me crea una nueva fila 9 en la que todos los campos están en blanco, es decir la nueva celda J9 está en blanco, no tiene datos.


La verdad es que si a ti te funciona no se que puedo estar haciendo mal.
Si acaso comentare que uso excel 2000 , pero no se si afectará