Loop a list based on condition and print

Hi all,

I have done this once, but I cannot remake the situation, hope someone can help me.

I need to print a number of reports with a specific execution date. (see file attached)

That date is found in cell B3 of worksheet "Werkbon"

On another worksheet (Planning) I have a list with all the workorders and the excecution date.

Now I need to fill in a workorder with that particular date of cell B3 (so the other fields in the report will LOOKUP), print that report, and fill in the next workorder with that particular date and print that report.

I know this is a loop function, but do not know where to start. Can anyone help me?

Planninghelp.xlsm2.1 MB

Thank you. Here is a macro:

Sub PrintReports()
    Dim ws As Worksheet
    Dim wt As Worksheet
    Dim r As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Sheet4")
    Set wt = Worksheets("Werkbon")
    r = 3
    Do While ws.Range("A" & r).Value <> ""
        wt.Range("B5").Value = "'" & ws.Range("A" & r).Value
        wt.PrintOut
        r = r + 1
    Loop
    Application.ScreenUpdating = True
End Sub

Forum Discussion

Loop a list based on condition and print

Share

Resources