Inserting Lines 1

[Dan15]

What is the code for a macro to inserta line in Excel while maintaining the formulas for that column? It must be relative to the active cell selected.

Thanks-
-Dan

 

[RobBroekhuis]

Use the .borders property of the range object. For example, the following code puts a medium-weight line to the left of the active cell, along the entire column boundary.

activecell.EntireColumn.Borders(xlEdgeLeft).Weight=xlmedium

Rob

 

[Dan15]

To clarify, I meant to say insert another row. I need to insert a row, copying the formulas from the row above. When you try to do this through recording the macro, it doesn't give the code in relative terms. I need to be able to insert the row anywhere and maintain the spreadsheet formulas.

 

[RobBroekhuis]

One way to do this would be:

activecell.EntireRow.Insert
activecell.offset(-1,0).EntireRow.Copy activecell.EntireRow
activecell.EntireRow.SpecialCells(xlCellTypeConstants).clear

This inserts the row, copies the entire row above, and the clears the constants, leaving just the formulas.
Rob

 

[Dan15]

Rob-

This is exactly what I'm looking for. Thank you very much-

-Dan