Ver originales (Francés)

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

Resuelto
Emi80110 Mensajes publicados 69 Estado Miembro -  
ccm81 Mensajes publicados 11033 Estado Miembro -

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

  1.
    ozone_ Mensajes publicados 1823 Estado Miembro 511
     

    Hola,

    Otro ejemplo:

    https://www.cjoint.com/c/LHrmzhftJYw

    Colocado en un módulo

    Sub autoFill_colonne() Range("I2:M2").Select Selection.AutoFill Destination:=Range("I2:M" & Range("A1").End(xlDown).Row), Type:=xlFillDefault End Sub
    1
  2. Mike-31 Mensajes publicados 18405 Fecha de registro   Estado Colaborador Última intervención   5 147
     

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

    0
  3. Emi80110 Mensajes publicados 69 Estado Miembro 2
     

    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

    0
  4. Emi80110 Mensajes publicados 69 Estado Miembro 2
     

    Hola

    ¡Ah, aquí estaba, era tan simple!

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

    ¡Muchas gracias! :-)

    Problema resuelto! :-)

    0