need to copy 5 rows for every part

atarrqis · Dec 1, 2016

Excel 2010, I have 5 rows of data on one sheet with the first column = part. On the second sheet I have a list of parts - 101, 102, 103.
I need to copy the 5 rows with part = 101, then copy the 5 rows again with part = 102, etc.

SkipVought · Dec 1, 2016

Hi,

Why?

What's the purpose?

Can you state the business case for this requirement?

Maybe an uploaded workbook would help understand what you need and why.

Please answer each of these questions.

Assuming you have headings in row 1 in both tables...

Code:

Dim r As Range, rng As Range, lRow as Long, i As Integer

Set rng = Sheet2.Cells(2, 1)
Set rng = Sheet2.Ranger(rng, rng.End(xlDown))

lRow = 2
For Each r in rng
   For i = 1 to 5
      Sheet1.Cells(lRow, 1).value = r.value
      lRow = lRow + 1
   NEXT
Next

Skip,
_{Just traded in my OLD subtlety...

for a NUance!}

Barad443 · Dec 20, 2016

http://stackoverflow.com/questions/211062/copy-every-nth-line-from-one-sheet-to-another

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

need to copy 5 rows for every part

atarrqis

IS-IT--Management

SkipVought

Programmer

Barad443

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor