I have found similar VBA code loops to copy and paste values on the board, but not quite this. (Sorry for descriptive only here)
I have formulas calculating results in Sheet("Instructions"), cells B5:T100. Each row only contains 6 formulas due to some merged columns (B-G), (H) (I-K), (L-N), (O-Q), (R-T).
Some leading rows and trailing rows usually result in blanks, so there are not always 95 rows of values to copy. BUT, where there is data, rows are ALWAYS contiguous rows.
So I may have row 5 to row 20 blank, then rows 21 to 45 showing results, then 46 to 100 blank. Changes each day.
When a row does contains data, (B-G) (I-K), (L-N), (O-Q), (R-T) are never blank. (H) may sometimes contain a blank result, but it can still be copied.
So I would like to loop through the cells in each non-blank row B5:T100 and copy the 6 values to other sheets, 1 row per sheet, but pasted to different cell locations.
The receiving sheets 1-95 (already in my workbook) have matching merged columns where the values will be pasted if that helps.
Each recipient sheet will receive the values in the same cell positions shown below, so
For each row with data in Sheet("Instructions"B5:T100)
(B:G) copies value to Sheet1(B2:G2)
(H) copies value to Sheet1(H2)
(I-K) copies value to Sheet1(C3:E3)
(L-N) copies value to Sheet1(C4:E4)
(O-Q) copies value to Sheet1(C5:E5)
(R-T) copies value to Sheet1(C6:E6)
Then go to next row with data, and copy the same merged cells to same merged cells in Sheet2, and so on.
Repeat to last row of data in "Instructions" to Sheet(nth).
Sorry again for long descriptive, but I think this is relatively easy from similar examples I've seen. Just wish I knew how to code.
I have formulas calculating results in Sheet("Instructions"), cells B5:T100. Each row only contains 6 formulas due to some merged columns (B-G), (H) (I-K), (L-N), (O-Q), (R-T).
Some leading rows and trailing rows usually result in blanks, so there are not always 95 rows of values to copy. BUT, where there is data, rows are ALWAYS contiguous rows.
So I may have row 5 to row 20 blank, then rows 21 to 45 showing results, then 46 to 100 blank. Changes each day.
When a row does contains data, (B-G) (I-K), (L-N), (O-Q), (R-T) are never blank. (H) may sometimes contain a blank result, but it can still be copied.
So I would like to loop through the cells in each non-blank row B5:T100 and copy the 6 values to other sheets, 1 row per sheet, but pasted to different cell locations.
The receiving sheets 1-95 (already in my workbook) have matching merged columns where the values will be pasted if that helps.
Each recipient sheet will receive the values in the same cell positions shown below, so
For each row with data in Sheet("Instructions"B5:T100)
(B:G) copies value to Sheet1(B2:G2)
(H) copies value to Sheet1(H2)
(I-K) copies value to Sheet1(C3:E3)
(L-N) copies value to Sheet1(C4:E4)
(O-Q) copies value to Sheet1(C5:E5)
(R-T) copies value to Sheet1(C6:E6)
Then go to next row with data, and copy the same merged cells to same merged cells in Sheet2, and so on.
Repeat to last row of data in "Instructions" to Sheet(nth).
Sorry again for long descriptive, but I think this is relatively easy from similar examples I've seen. Just wish I knew how to code.