Sub inserta_Lineas2()
'Insertar lineas y tambien formas y fomatos que existan en linea de celda seleccionada
Application.ScreenUpdating = False
On Error GoTo Jota
a = InputBox("Ingrese el Número de Lineas a Insertar.", "Insertar Lineas", 1) 'si inserta 0 sale de la macro sin insertar linea)
If a <= 0 Then Exit Sub
'b (la variable) toma el número de la fila de la celda activa
b = ActiveCell.Row
For i = 1 To a
'Selecciona toda la fila, según lo que tiene la variable b
Rows(b).Select
'Inserta la linea anterior seleccionada en B
Selection.EntireRow.Insert
'Copia de la fila anterior los formatos y formulas
Rows(b - 1).Copy
'Pega los formatos copiados, en las líneas insertadas
Rows(b).PasteSpecial Paste:=xlPasteFormats
'Copia la fórmula de la I anterior
Range("I" & b - 1).Copy
'Pega las formulas en celdas celdas I insertadas
Range("I" & b).PasteSpecial Paste:=xlPasteFormulas
'Desactivar seleccion
Application.CutCopyMode = False
Next i
Jota:
Application.ScreenUpdating = True
End Sub
Lo que hace la macro es insertra lineas a partir de la celda seleccionada en determinada fila (I).
Lo hace bien pero solo está para insertar formas y formatos en la columna I y pretendo que me lo haga en cualquier celdas de columnas que tengan formulas y formatos
Imagen de la hoja
Gracias
