how come i get an error on

Sheets(1).Rows(MyRows(copyRow)).EntireRow.Copy _

Destination:=Sheets(2).Cells(copyRow, 1)my rows start at row 5, is that the problem?? but i have cell A4 empty. i start titles at B4... my numbers start on A5... i need to have 4 rows above that for titles and such... and i need to have the same 4 rows for titles and such on the sheet 2... help!!

I used this macro: Option Explicit

Sub Random20()

Randomize 'Initialize Random number seed

Dim MyRows() As Integer ' Declare dynamic array.

Dim numRows, percRows, nxtRow, nxtRnd, chkRnd, copyRow As Integer

'Determine Number of Rows in Sheet1 Column A

numRows = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row

'Get 20% of that number

percRows = numRows * 0.2

'Allocate elements in Array

ReDim MyRows(percRows)

'Create Random numbers and fill array

For nxtRow = 1 To percRows

getNew:

'Generate Random number

nxtRnd = Int((numRows) * Rnd + 1)

'Loop through array, checking for Duplicates

For chkRnd = 1 To nxtRow

'Get new number if Duplicate is found

If MyRows(chkRnd) = nxtRnd Then GoTo getNew

Next

'Add element if Random number is unique

MyRows(nxtRow) = nxtRnd

Next

'Loop through Array, copying rows to Sheet2

For copyRow = 1 To percRows

Sheets(1).Rows(MyRows(copyRow)).EntireRow.Copy _

Destination:=Sheets(2).Cells(copyRow, 1)

Next

End Subhow come i get an error on

Sheets(1).Rows(MyRows(copyRow)).EntireRow.Copy _

Destination:=Sheets(2).Cells(copyRow, 1)my rows start at row 5, is that the problem?? but i have cell A4 empty. i start titles at B4... my numbers start on A5... i need to have 4 rows above that for titles and such... and i need to have the same 4 rows for titles and such on the sheet 2... help!!

Ask Your Question

Weekly Poll

Do you think SpaceX can bring broadband Internet to all?

Discuss in The Lounge

Poll History