Extracting 10 random rows from one sheet, and pasting them on another.

**gb99** · 12-08-2009, 10:55 PM

Hello Everyone,

I have 3 worksheets in one workbook. I need to extract 10 random rows of information from about 193 rows in sheet 1, and post it in sheet 2 and I can't seem to find a way to make this happen correctly. Any help with this would be greatly appreciated.

Thanks

**davesexcel** · 12-08-2009, 11:05 PM

What do you mean by random rows?

**gb99** · 12-08-2009, 11:08 PM

Out of 193 rows of data, I have to create a macro that will randomly select 10 of those rows. Then the macro needs to post these 10 random rows into Sheet 2.

**jrdnoland** · 12-08-2009, 11:22 PM

Here's a function that will get you started:

Please Login or Register  to view this content.

Call it like this:

Please Login or Register  to view this content.

The sub shows how to get the first item in this 10 item array.

Use the array indexes generated to copy those specific rows.

Use some sort of variable to find the last row in the worksheet you want to copy from and use that as the Upper limit of the random number generator. The lower limit will be the first possible row you want to copy from. 1 if there is no header, 2 if there is a one row header; etc.

Find the last row of the worksheet you want to paste the data too and paste it.