ExcelBanter - MACRO URGENT HELP

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - MACRO URGENT HELP (https://www.excelbanter.com/excel-discussion-misc-queries/148480-macro-urgent-help.html)

OSK

MACRO URGENT HELP

Hi all:

I'm trying to make a Macro that inserts a blank row each 1000 rows... I have
a DB with 18K rows.

Thanks in advance to anyone that can help me!!!

OSK

Mike H

MACRO URGENT HELP

hi,

Try this pasted in as worksheet code:-

Sub sonic()
For x = 1000 To 60000 Step 1000
Cells(x, 1).Select
Selection.EntireRow.Insert
Next
End Sub

Mike

"OSK" wrote:

Hi all:

I'm trying to make a Macro that inserts a blank row each 1000 rows... I have
a DB with 18K rows.

Thanks in advance to anyone that can help me!!!

OSK

OSK

MACRO URGENT HELP

Mike:

You've been extremely helpful...

thaks a lot

OSK

"Mike H" wrote:

hi,

Try this pasted in as worksheet code:-

Sub sonic()
For x = 1000 To 60000 Step 1000
Cells(x, 1).Select
Selection.EntireRow.Insert
Next
End Sub

Mike

"OSK" wrote:

Hi all:

I'm trying to make a Macro that inserts a blank row each 1000 rows... I have
a DB with 18K rows.

Thanks in advance to anyone that can help me!!!

OSK

All times are GMT +1. The time now is 06:56 AM.