none
Macro para Insertar Fila, pegar unicamente Formulas y agregar bordes a la misma RRS feed

  • Pregunta

  • Bueno al final buscando y buscando y haciendo modificaciones, termine haciendo este codigo
    Explico:
    Inserta una fila segun la celda activa (donde tengas posicionado el raton) y copia unicamente las formulas de la fila anterior
    y termina por agregar los bordes de la columna A hasta la columna F (segun la celda activa)
    Les dejo este codigo por si alguien lo necesita

    Sub Insertar() Dim fila As Integer fila = ActiveCell.Row If fila < 4 Then MsgBox ("Ahi no se puede insertar") Exit Sub

    End If

    Rows(fila).Insert Shift:=xlDown If fila = 4 Then Rows(fila + 1).Copy Else Rows(fila - 1).Copy Rows(fila).PasteSpecial Paste:=xlPasteFormulas Dim i As Integer For i = 1 To 6 Cells(fila, i).Select Selection.Borders.LineStyle = xlContinuous

    Next i End Sub



    • Editado mexican2 lunes, 19 de septiembre de 2016 14:39 reducir interlineado
    lunes, 19 de septiembre de 2016 14:36