Macro code needed to Copy every hundredth row in Excel

[prhill]

I am looking for a macro code that will allow me to copy every hundredth row of data(i have 25000 total) in a spreadsheat and paste it to a new spreadsheet (if possable). I'm sure this is a simple code but I have no experience in macro or code writing at all.

Thanks in advance for any help I recieve.

 

[Jonmo1]

Welcome to the board..

Try this

Sub CopyEveryHundred()
 
X = 1 ' Change this number to the row # you want to start at
 
Set Ssheet = ActiveSheet
Sheets.Add
Set Dsheet = ActiveSheet
 
For i = X to Ssheet.Cells(Rows.Count,"A").End(xlup).Row Step 100
    Ssheet.Rows(i).EntireRow.Copy Dsheet.Cells(Rows.Count,"A").End(xlup).Offset(1,0)
Next i
End Sub

Hope this helps..

 

[njimack]

Ignore this post - jonmo beat me to it.

 

[prhill]

Wow. Thanks a lot. Does exactly what i needed it to. You just saved me hours of having to learn code and now i look like a genuis to my boss, (don't worrie i'll mention i got some help). Thanks again.