Ver originales (Francés)

VBA: Extender fórmula hasta la última línea con macro

Resuelto
Emi80110 -  

Hola :-)

Estoy de vuelta, con una nueva solicitud

He visto que se habían abierto varias discusiones sobre el mismo tema, pero no aviso sobre reutilizar los códigos dados en respuesta.

En el archivo adjunto, me gustaría que las fórmulas de las columnas I a M pudieran extenderse automáticamente hasta la última línea de datos.

He reducido el archivo aquí para el ejemplo, pero es una extracción que puede variar de 500 a 300000 líneas. Es bastante aleatorio.

¿Podrían ayudarme, por favor?

Archivo de ejemplo: https://cjoint.com/c/LHrlQmZ8Mdo

Muchas gracias por adelantado :-)

Emilie

5 respuestas

  2.  Mike-31

    Hola,

    he colocado el código en un botón

    Para la columna I que es la columna 9

    Private Sub CommandButton1_Click() Derlig = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To Derlig Cells(i, 9).FormulaLocal = "=BUSCARV(G2;'Feuil1 (2)'!A:B;2;0)" Next i End Sub

    y lo mismo para las columnas J, K, L y M

    ¡Hasta luego!
    Mike-31

    Soy responsable de lo que digo, no de lo que tú entiendes...

    1.  Emi80110 Autor

      Gracias por tu respuesta :-)

      He logrado hacerlo con el siguiente código:

      Sub ETAPA_1()
      '
      ' Macro ETAPA_1
      '
      Range("I5").AutoFill Destination:=Range("I5:I" & (Range("A" & Rows.Count).End(xlUp).Row))
      Range("J5").AutoFill Destination:=Range("J5:J" & (Range("A" & Rows.Count).End(xlUp).Row))
      Range("K5").AutoFill Destination:=Range("K5:K" & (Range("A" & Rows.Count).End(xlUp).Row))
      Range("L5").AutoFill Destination:=Range("L5:L" & (Range("A" & Rows.Count).End(xlUp).Row))
      Range("M5").AutoFill Destination:=Range("M5:M" & (Range("A" & Rows.Count).End(xlUp).Row))
      '
      End Sub

      Muchas gracias

      1.  Emi80110 Autor

        Hola

        ¡Ah, aquí estaba, era tan simple!

        ¡Me he roto la cabeza reescribiendo el mismo código para cada columna!

        ¡Muchas gracias! :-)

        Problema resuelto! :-)