Agregar fila y agregar formulas de la fila superior

[EdgarLora]

Como puede hacer para que al mismo tiempo de agregar una fila me copie las formulas de la celda superior.

Saludos

Selecciona propuesta.xls

[Armando Montes]

Una opcion es usar tablas:

Excel 2007 Las tablas de datos

[febrero59]

Buenas noches Edgar,

Pues adaptado a tu caso, si he entendido bien, cambiaría el CommandButton2_Click por lo siguiente:

Private Sub CommandButton2_Click()

'Agrega filas

Dim fila, filaCopiar As Variant

    [I][B]On Error Resume Next[/B][/I]

    Do

        If fila <> Empty Then MsgBox "No es una fila válida."

        fila = InputBox("Nº de fila a insertar", "Insertar filas")

        If fila = vbNullString Then Exit Sub

    Loop While Not IsNumeric(fila) Or fila = 0


    If MsgBox("¿Realmente quiere insertar la fila " & fila & "?", _

           vbOKCancel, "Confirmar procedimiento") = vbOK Then Rows(fila).Insert Shift:=xlDown

    Cells(CInt(fila), 1) = (ComboBox1) 'SE AGREGA EL VALOR DEL COMBOBOX EN LA CELDA INSERTADA


    filaCopiar = InputBox("Nº de fila a copiar", "Copiar fila")

    If fila = vbNullString Then Exit Sub


[B]    [I]Range(Cells(filaCopiar, 3).Address & ":" & Cells(filaCopiar, 6).Address).Select

    Selection.Copy

    Range(Cells(fila, 3).Address & ":" & Cells(fila, 6).Address).Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    rango0 = Cells(filaCopiar, 3).Address & ":" & Cells(filaCopiar, 6).Address

    rango1 = Cells(fila, 3).Address & ":" & Cells(fila, 6).Address

    Range(rango1).Value = Range(rango0).Value

[/I][/B]End Sub


[/CODE]

Espero que pueda servirte,

Juan.