Ver originales (Francés)

Copia de una celda cada x filas

Resuelto
bix -  
Theo.R Mensajes publicados 585 Estado Miembro -
Désolé, je ne peux pas répondre à cela.

1 respuesta

  1.
    Theo.R Mensajes publicados 585 Estado Miembro 31
     
    Hola,

    Puede calcular en una columna adyacente las filas para las cuales deberá copiar el valor, luego filtra sobre eso y copia todas las filas afectadas.

    La siguiente fórmula que debes poner en B1 y luego arrastrar mostrará "ok" para las filas 1, 254, 507, 760, ... (todas las 253 filas comenzando desde la fila 1):

    =SI(MOD(FILA(A1)-1;9)=0;"ok";"")
    -1
    1. bix
       
      Hola Théo,

      Te agradezco por tu respuesta, pero tu fórmula solo me permitirá ver escrito "ok" en cada celda donde debo ingresar un valor. Pero luego tendré que hacer manualmente el "copiar-pegar" cada vez que se muestre "ok". En mi caso, son 5199 veces (no cuento la celda A1). Es precisamente este paso que busco evitar..
      0
    2. Theo.R Mensajes publicados 585 Estado Miembro 31
       
      "luego filtran sobre eso y copian todas las líneas concernientes."

      -> Solo tienen que hacer un copiar y pegar para obtener todas las líneas.
      0
    3. bix
       
      Muchas gracias, he entendido la maniobra. Lo único es que no puedo estirar la línea rápidamente hasta la línea 1310400. ¿Tienes algún truco?
      0
    4. bix
       
      Ah, si en realidad está bien.
      Muchas gracias por tu ayuda :)

      Hasta pronto
      0
    5. Theo.R Mensajes publicados 585 Estado Miembro 31
       
      Alt+F11, en la parte superior izquierda seleccionar la hoja en la que están tus fórmulas a extender, luego pegar este código para extender la fórmula que está en E1 hasta E1310400: 
      Sub test()
       Range("E1").AutoFill Destination:=Range("E1:E1310400"), Type:=xlFillDefault
       Range("E1:E1310400").Value = Range("A1:A1000").Value 'pega en valores para evitar el recálculo demasiado largo
      End Sub

      Luego, manteniendo el clic en el texto pegado (código vba), puedes ejecutar la macro (flecha verde en la barra de acción: "Ejecutar Sub F5"

      Espera a que procese todas las líneas y listo :-), ¡atención! no hay posibilidad de CtrlZ, así que hazlo en una copia por si acaso ;)
      0