inserting rows with formulas

  • Thread starter Thread starter ~Ken~
  • Start date Start date
K

~Ken~

Hi

Does anyone know how to code a button on the worksheet to
insert 2 rows above the active cell and then copy the
formulas down (or up) from the rows that are adjacent?

Many thanks
Ken
 
This should work, adjust ColumnToFill as needed.

Dim R As Integer, ColumnToFill As Integer
R = ActiveCell.Row
ColumnToFill = 1
ActiveCell.EntireRow.Insert
Range(Cells(R - 1, ColumnToFill), Cells(R, ColumnToFill)).FillDown
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Insert Row also adds formulas and moves cursor 2
Mid column sum formulas with varied ranges to sum 17
Keeping formulas on an insert 1
Insert Value into cell automatically when new rows are created/inserted 1
Changes in How Code Acts After Upgrade of Excel 2
Inserting new rows into sheet 2
Insert formula and copy to a range of cells above 2
Code to Insert rows and copy formulas 3

Back
Top