Insert and copy row above

[pkotzee]

Hi
I have a button that inserts a row above the cell the button is placed in.
Here is the code:

Sub Button6_Click()
    ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Insert
 
End Sub

But I also want to copy all formulas and dropdown lists from specific cells in the row above the new row. Hope it makes sense.

Hope someone will be able to help me.
Peter

 

[pbornemeier]

If by dropdown lists, you mean data validation lists, they appear to be copied to the inserted row.

When a row is inserted, it is selected, so a series of commands similar to the following would copy formulas:

Copy formula as if it was dragged down (relative references will change)

Cells(Selection.Row, "F").FormulaR1C1 = Cells(Selection.Row - 1, "F").FormulaR1C1

Duplicate formula (relative references stay the same)

 Cells(Selection.Row, "F").Formula = Cells(Selection.Row - 1, "F").Formula