Edición de macro para insertar líneas

1 post / 0 nuevos
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 2 semanas 7 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 15/12/2011 - 23:46
Puntos: 2695
Edición de macro para insertar líneas

Esta macro

 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 esta para insertar formas y formatos en la columna I y pretendo que me lo haga en cualquiercomo que tengan formulas y formatos

Gracias

AdjuntoTamaño
File insertar_lineas.xlsm19.14 KB