Non sequential read and write with arrays

[dbfuller2002]

I am attempting to pull data into 3 arrays. 2 arrays from sheet one, "Summary", and 1 arrays from sheet two, "Detail". After pulling the arrays, I will compare Array1, "Project Name" on sheet Summary to Array3, "Project Name" from the detail Sheet. If the values match, I need to take he corresponding Array2 from sheet Summary and build a new array4, that will write in one command to Sheet Detail. On the Detailed sheet, The Array Values are offset by 15 Rows. All Arrays are in Columns.

Summary
Array1 = A5:A24
Array2 = B5:B24
Array3 = A1, A16, A31 ...
Array4= W1, W16, W31...

My First Challenge is populate Array3. Below is the Code I am using.

For Three = 1 to 31
Array3 (Three) = ThisWorkBook.Worksheets("Detail").Range (A1 & Three + 15)
Next Three

The "For Next" Statement does not offset by 15 rows. It only offsets by 1 row.

I believe my next challenge will be writing Array4 To row W offset by 15 rows. Any help would be much appreciated.

Thanks,

Dave

 

[Fluff]

Hi & welcome to MrExcel
Try

For Three = 1 To 31 Step 15
     Array3(Three) = ThisWorkbook.Worksheets("Detail").Range("A" & Three)
Next Three

 

[dbfuller2002]

Thanks so much, I will give this a try.