Insertar VARIAS filas y que se copien las formulas

Cerrado
RAJ2017
Message postés
11
Date d'inscription
martes, 13 de junio de 2017
Estatus
Miembro
Última intervención
viernes, 25 de agosto de 2017
- Modificado el 25 ago 2017 a las 18:28
Buen día a todos los miembro del foro
Necesito de su ayuda.
Tengo una planilla de excel donde tengo fórmulas en distintas celdas. Voy agregando filas según necesidad, implemente un código macro pero ese se ejecuta solo en una fila por mas que inserte 2,3,4.
Lo que necesito es un código que se ejecute según la cantidad de filas que inserte.

El codigo que uso es el siguiente

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
[m7].Copy Cells(.Row, "M") ' Se copia M7
[o7].Copy Cells(.Row, "O") ' Se copia O7
[q7].Copy Cells(.Row, "Q") ' Se copia Q7
[s7].Copy Cells(.Row, "S") ' Se copia S7
[u7].Copy Cells(.Row, "U") ' Se copia U7
[w7].Copy Cells(.Row, "W") ' Se copia W7
[y7].Copy Cells(.Row, "Y") ' Se copia Y7
[aa7].Copy Cells(.Row, "AA") ' Se copia AA7
[ad7].Copy Cells(.Row, "AD") ' Se copia AD7
End With
Application.EnableEvents = True
End Sub


Desde ya muchas gracias a todos
Saludos desde ARGENTINA