Forum Discussion
Solved
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 ...
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
HansVogelaar Here it is 🙂
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- Hi Hans,
Soms heeft een cel in de "A" range een nul, soms is het ""
Hoe kan ik ze allebei uitsluiten? Dus alleen printen als het niet 0 en niet "" is?Do While ws.Range("A" & r).Value <> "" And ws.Range("A" & r).Value <> 0
- You are amazing Hans!