Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert row with macr
How can I insert a row with the specific formulas with a
macro button. And the macro must evantually stand in the new row. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert row with macr
Try this macro from David McRitchie's site:
Sub InsertRowsAndFillFormulas() ' Documented: http://www.mvps.org/dmcritchie/excel/insrtrow.htm ' Insert Rows -- 1997/09/24 Mark Hill 'Dim vRows As Integer ' row selection based on active cell -- rev. 2000-09-02 David McRitchie ActiveCell.EntireRow.Select 'So you do not have to preselect entire row If vRows < 1 Then vRows = Application.InputBox(prompt:= _ "How many rows do you want to add?", Title:="Add Rows", _ Default:=1, Type:=1) 'type 1 is number If vRows = False Then Exit Sub End If 'if you just want to add cells and not entire rows 'then delete ".EntireRow" in the following line 'rev. 2001-01-17 Gary L. Brown, programming, Grouped sheets Dim sht As Worksheet, shts() As String, i As Integer ReDim shts(1 To Worksheets.Application.ActiveWorkbook. _ Windows(1).SelectedSheets.Count) i = 0 For Each sht In _ Application.ActiveWorkbook.Windows(1).SelectedShee ts Sheets(sht.Name).Select i = i + 1 shts(i) = sht.Name Selection.Resize(rowsize:=2).Rows(2).EntireRow. _ Resize(rowsize:=vRows).Insert Shift:=xlDown Selection.AutoFill Selection.Resize( _ rowsize:=vRows + 1), xlFillDefault On Error Resume Next 'to handle no constants in range -- John McKee 2000/02/01 ' to remove the non-formulas -- 1998/03/11 Bill Manville Selection.Offset(1).Resize(vRows).EntireRow. _ SpecialCells(xlConstants).ClearContents Next sht Worksheets(shts).Select End Sub -- Regards, Tom Ogilvy "Jeroen" wrote in message ... How can I insert a row with the specific formulas with a macro button. And the macro must evantually stand in the new row. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to get date to move down to next cell & other referances, macr | Excel Discussion (Misc queries) | |||
Display "Last updated date" for the Workbook (without using a macr | Excel Worksheet Functions | |||
how to move data from a cell to another one without using any macr | Excel Worksheet Functions | |||
Copy data from one worksheet to another using a function or a macr | Excel Worksheet Functions | |||
How do I convince the cursor to select a given cell when in a macr | Excel Discussion (Misc queries) |