Dec 14 2022 05:09 AM - edited Dec 14 2022 05:49 AM
I can print now multiple pdfs but when there is more then 1 blank cells it stops and if i do like + 10 it also stops, but I want it to even if it has multiple blank cells just go till you find the value
Dim i As Integer
For i = 3 To 2000
A = sheet2Tab.Cells(i, 1).Value
If A = "" Then i = i + 1
A = sheet2Tab.Cells(i, 1).Value
If A = "" Then Exit For
Sheets("Sheet1").Range("AC1").Value = Sheets("Sheet2").Cells(i, 1).Value
Application.CutCopyMode = False
Sheet1Tab.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"(DONT WANT TO SHOW)'', Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next i