Printing multiple times with changing data

[orzys]

Hi there, I believe this is doable with a macro loop but it has been ages since I tried anything and I don't know where to even begin.

I have file consisting of 2 sheets:
A. Table that contain various values for a few dozen projects, so that every row is a project and every column (about 20 columns) has different values for all projects.
B. Made up document with 20 empty cells designated for the data in each of those 20 columns in sheet A.

Basically I need to print sheet B multiple times (as many as the number of rows in sheet A, without the first row containing headers):
The first print will have all those 20 previously-empty cells showing all the corresponding values from the second row (first row is headers) in sheet A
The second print will have values from the third row in sheet A, and so on.

Any help is appreciated

 

[orzys]

Hi there, I believe this is doable with a macro loop but it has been ages since I tried anything and I don't know where to even begin.

I have file consisting of 2 sheets:
A. Table that contain various values for a few dozen projects, so that every row is a project and every column (about 20 columns) has different values for all projects.
B. Made up document with 20 empty cells designated for the data in each of those 20 columns in sheet A.

Basically I need to print sheet B multiple times (as many as the number of rows in sheet A, without the first row containing headers):
The first print will have all those 20 previously-empty cells showing all the corresponding values from the second row (first row is headers) in sheet A
The second print will have values from the third row in sheet A, and so on.

Any help is appreciated

I managed to find the solution.

In case it helps anyone else (duplicate population and resetting for each cell required):

Option Explicit

Sub IrregularForm()
Dim MyRange As Range, MyVal As Long, LR As Long


LR = Sheets("Data").Range("K" & Rows.Count).End(xlUp).Row
'Set MyRange = Sheets("Data").Range("K1:K" & LR)

    For MyVal = 2 To LR Step 1
        Sheets("Form").[B5].Value = Sheets("Data").Range("K" & MyVal).Value
        Sheets("Form").[D5].Value = Sheets("Data").Range("L" & MyVal).Value
        Sheets("Form").[G5].Value = Sheets("Data").Range("M" & MyVal).Value

        Sheets("Form").PrintOut Copies:=1
    Next MyVal

Sheets("Form").[B5].Value = ""
Sheets("Form").[D5].Value = ""
Sheets("Form").[G5].Value = ""

End Sub