Macro to copy and past a new row when the a row is filled in.
My excel sheet has some formatting/formulas that is wish to copied and pasted
as i reach the end of my sheet. Currently I hit ctrl "a" when on a blank on to add another. But, would like it to automatically run the macro when the line above the blank on has a cell 0 or NOT so there will always be a blank row below where i am typing. The macro I am using is: Sub AddRow() ' ' AddRow Macro ' Macro recorded 12/14/2006 by PorterJ ' ' Keyboard Shortcut: Ctrl+a ' ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy Selection.Insert Shift:=xlDown End Sub ' thanks for any help you can provide... Porter |
Macro to copy and past a new row when the a row is filled in.
if your in a blank cell and you want to copy the first row above that that
contains data: Sub AddRow() if len(trim(ActiveCell)) = 0 then ActiveCell.End(xlup).EntireRow.copy ActiveCell.EntireRow.Insert Shift:=xlDown End if End Sub -- Regards, Tom Ogilvy "lookLikeWorks" wrote: My excel sheet has some formatting/formulas that is wish to copied and pasted as i reach the end of my sheet. Currently I hit ctrl "a" when on a blank on to add another. But, would like it to automatically run the macro when the line above the blank on has a cell 0 or NOT so there will always be a blank row below where i am typing. The macro I am using is: Sub AddRow() ' ' AddRow Macro ' Macro recorded 12/14/2006 by PorterJ ' ' Keyboard Shortcut: Ctrl+a ' ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy Selection.Insert Shift:=xlDown End Sub ' thanks for any help you can provide... Porter |
All times are GMT +1. The time now is 10:33 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com