Automatic insertion of rows

pdibello · Feb 28th, 2002, 08:01 AM

Is it possible to automatically insert a new blank row between each row of data on a spreadsheet without manually inserting each new row?

Rios · Feb 28th, 2002, 08:09 AM

You can create a macro and to attribute this macro to a menu button. To create to macro, make the insert recording to macro. At the end it publishes to macro altering the point where she selected the interval for activecell. It should work.

Paul B · Feb 28th, 2002, 08:15 AM

The Marco below, written by Barrie Davidson, will do what you want.

Sub Insert_rows()

' Written by Barrie Davidson

Dim insertNumber As Integer

On Error Resume Next

Range("A1").Select

insertNumber = CInt(InputBox("Enter number of rows to insert"))

If insertNumber <= 0 Then

MsgBox ("Invalid Number Entered")

Exit Sub

End If

Do Until Selection.Value = ""

ActiveCell.Offset(1, 0).Range("A1:A" & insertNumber).Select

Selection.Insert Shift:=xlDown

ActiveCell.Offset(insertNumber, 0).Select

Loop

Range("A1").Select

End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 28th, 2002, 08:01 AM	#1
pdibello New Member Join Date: Feb 2002 Posts: 1	Is it possible to automatically insert a new blank row between each row of data on a spreadsheet without manually inserting each new row?

Feb 28th, 2002, 08:09 AM	#2
Rios New Member Join Date: Feb 2002 Location: Brazil Posts: 4	You can create a macro and to attribute this macro to a menu button. To create to macro, make the insert recording to macro. At the end it publishes to macro altering the point where she selected the interval for activecell. It should work.

Feb 28th, 2002, 08:15 AM	#3
Paul B Board Regular Join Date: Feb 2002 Location: Georgia USA Posts: 544	The Marco below, written by Barrie Davidson, will do what you want. Sub Insert_rows() ' Written by Barrie Davidson Dim insertNumber As Integer On Error Resume Next Range("A1").Select insertNumber = CInt(InputBox("Enter number of rows to insert")) If insertNumber <= 0 Then MsgBox ("Invalid Number Entered") Exit Sub End If Do Until Selection.Value = "" ActiveCell.Offset(1, 0).Range("A1:A" & insertNumber).Select Selection.Insert Shift:=xlDown ActiveCell.Offset(insertNumber, 0).Select Loop Range("A1").Select End Sub