Re: Insert blank row after every 11th row.

Tech-Archive recommends: Speed Up your PC by fixing your registry

try it this way

Sub insertrow()
nr = 5
i = nr
Do While Cells(i, "a") <> ""
Cells(i, "a").EntireRow.Insert
i = i + nr
Loop
End Sub

--
Don Guillett
SalesAid Software
dguillett1@xxxxxxxxxxxxx
"Captain Snuggles" <seanpatricksteele@xxxxxxxxx> wrote in message
news:1175195714.906632.72210@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If I work from the bottom up it doesn't work right. How do I make it
go from top down?

On Mar 29, 11:04 am, "Don Guillett" <dguille...@xxxxxxxxxxxxx> wrote:
Work from the bottom up

Sub insertrowat()
rowstoinsert = 3
lr = Cells(Rows.Count, "a").End(xlUp).Row
For i = lr To rowstoinsert + 1 Step -rowstoinsert
Rows(i).Insert
Next i
End Sub

--
Don Guillett
SalesAid Software
dguille...@xxxxxxxxxxxxx"Captain Snuggles" <seanpatrickste...@xxxxxxxxx>
wrote in message

news:1175189790.110010.39270@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Here's what I found originally:

Sub Insert_Blank_Rows()

'Select last row in work***.
Selection.End(x1Down).Select

Do Until ActiveCell.Row = 1
'Insert blank row.
ActiveCell.EntireRow.Insert shift:=x1Down
'Move up one row.
ActiveCell.Offset(-1, 0).Select
Loop

End Sub

Then there was a post saying to change x(one)down to x(ell)down. I
did that, but I wasn't able to figure out how to tell it to do this
every 11th row. I changed the 1's to 11's, but that didn't work. I
keep getting an application-defined or object-defined error.

On Mar 29, 10:11 am, "Don Guillett" <dguille...@xxxxxxxxxxxxx> wrote:
Post it

--
Don Guillett
SalesAid Software
dguille...@xxxxxxxxxxxxx"Captain Snuggles"
<seanpatrickste...@xxxxxxxxx>
wrote in message

news:1175187781.973769.33520@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

I've found some vb code that kind of does what I need, but every
time
I tweak the code to have it insert the blank row after each 11th row
it doesn't work. Any ideas?

Row 1 | Column Header
Row 2 | Value 1
Row 3 | Value 2
Row 4 | Value 3
Row 5 | Value 4
Row 6 | Value 5
Row 7 | Value 6
Row 8 | Value 7
Row 9 | Value 8
Row 10 | Value 9
Row 11 | Value 10
Row 12 | Value 11
Row 12 | BLANK ROW
Row 13 | Value 12...and so on and so forth.




.

Quantcast