Inserting Rows Problem

  • Thread starter Thread starter andyp161
  • Start date Start date
A

andyp161

Hi there,

I have a list of about 2000 rows. However, in between each of thes
rows I want to insert a blank row that can be used for people to writ
in once the list is printed off. Is there a quick way to do this?

Kind regards

Andre
 
If you insert rows it will affect sorting, etc. and be a real pain.
Many posts here want to delete blank rows for exactly that reason.
If you only need space to write on the printed copy just make the rows
higher.
Select the entire worksheet by clicking the square at the upper right corner
between 1 and A.
Click and drag one of the row boundaries to make the row any size you want.
You can use format > cells > alignment to move the contents to the top or
bottom of the row.

Carlos
 
But if for some reason you must have blank rows (i.e to put in a top and
bottom border in the blank row), once you have all the blank rows -

insert a column - making sure it is within the area that will be sorted

number all the populated rows with sequential odd numbers (using auto
fill)

number an equal number of rows (that will become blank rows) with
sequential even numbers

either hide that column or, better still make sure that it is not
included in the print area.

In this way you should be able to re-sort it by the key data field(s) or
with occupied/empty rows (i.e. ready for printing) as required..

This is rather convoluted and may not be 100% effective but any additional
editing will be minimised.

Regards

Bill Ridgeway
Computer Solutions
 
MY problem is similar.
I want to have an excel worksheet use only odd (or) even rows when I paste
data into it.
I want to be able to control whether this pasted data goes into the odd or
even rows.
Is that possible to do? Even if I have to create two worksheets and somehow
merge them into odd or even rows??
 
Why not just copy and then insert the rows?

Sub insertrows()
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = x To 2 Step -1
Rows(i).Insert
Next
End Sub
 
On a re-read, maybe this is more in line with what you want
where b8:b10 is the contigous range to copy and a15,a17,a19 etc are the rows
to paste to

Sub copytooddrows()
For Each c In Range("b8:b10")
For i = 15 To 20 Step 2
c.Copy Cells(i, 1)
Next i
Next c
End Sub
 
I finally got it.
This will copy each item in b8:b10 to the odd row in col a. For even chg i
to 14.

Sub copytooddrows1()
i = 15
For Each c In Range("b8:b10")
c.Copy Cells(i, 1)
i = i + 2
Next c
End Sub
 
Back
Top