2000-09-02 David Mc Ritchie Dim x as long Active Cell. Select 'So you do not have to preselect entire row If v Rows = 0 Then v Rows = Application. Input Box(prompt:= _ "How many rows do you want to add? Brown, programming, Grouped sheets Dim sht As Worksheet, shts() As String, i As Long Re Dim shts(1 To Worksheets. The primary macro Insert Rows And Fill Formulas is installed on a toolbar button. Both macros are installed on a module sheet in my The code below has extra blank lines to help identify long lines it they get wrapped when you copy them. By referencing cells in the current row any insertion or deletion of lines will cause formulas to be updated. In order to refer to cells elsewhere but to name only cell addresses in the current row, OFFSET will be used as follows: Replication is made easier by grabbing and dragging the fill handles and with the use of shortcuts Ctrl D (Fill Down), and Ctrl R (Fill Right). [offset], [insrtrow] [dclick], [copyformulas], [Insert Blank Rows], [moreresize], [Change Event], [extended], [Alt Blanks], [Col Achg], [before_a], [reconcile], [Manual Insert], [Delete K], [Delete R], [addendum], [sign_onright], [fixrightminus], [clear Cols], [extra Totals], [blankrows], [multilabel], [#VALUE!
Checking will be from current row and from next row in a separate macro that calls Insert Rows And Fill Formulas. Has Formula Private Sub Worksheet_Before Double Click(By Val Target As Range, Cancel As Boolean) '-- Code example to prevent reinserting if the current row '-- or next row row has Column A cel empty (testing with TRIM). Count 'may alleviate some lastcell problems Target.
When using a Debit card enter a letter instead of the date into the reconciled column. Select the row above where you want to insert the rows, this is also the row whose formulas will be copied down. Private Sub Worksheet_Before Double Click(By Val Target As Range, Cancel As Boolean) Dim lastrow As Long 'D.
Change the letter to an actual date when you have banks entry. The first time you test you would probably invoke the macro ... For easier use in invoking the Insert Rows And Fill Formulas macro, I use a toolbar button — A display of my custom buttons can be seen on that page. Mc Ritchie, 2004-06-10, newusers lastrow = Cells(Cells.
", Title:="Add Rows", _ Default:=1, Type:=1) 'Default for 1 row, type 1 is number If v Rows = False Then Exit Sub End If 'if you just want to add cells and not entire rows 'then delete ".
lastrow 1 Then Exit Sub 'Row must be empty Rows(Target.