Insertar filas en el mismo formato

[Bcordero]

Buenos dias

como se podría hacer una macro que me inserte filas en la misma estructura que están y estas estén encima de la fila pintada de amarillo para que el rango no se altere. y esto se haga en todos los cuadros.

insertar filas.zip

[ramonvar]

Prueba esta rutina..inserta la fila inmediatamente superior a la posición del cursor..

Solo tienes que alterar el valor "7", en caso que quieras insertar antes de la fila "7"..

espero te sirva..puedes insertar una forma, y copias la macro..

Sub Insertar()

Dim fila As Integer

fila = ActiveCell.Row

If fila < 7 Then

MsgBox ("Ahi no se puede insertar")

Exit Sub

End If

Rows(fila).Insert shift:=xlDown

If fila = 7 Then Rows(fila + 1).Copy Else Rows(fila - 1).Copy

Rows(fila).PasteSpecial Paste:=xlPasteAll

End Sub

[Bcordero]

hola que tal si inserta bien la fila pero si te das cuenta x ejemplo en la 40 y 41 están unidas y la 39 esta reducida no se podría hacer la opción de copiar la fila 39,40 y 41 y dejarlas en la misma forma en la que están? cosa que copia todo y formulas que pudieran estar ahi... se podrá ?