Loop through data validation list and create PDF files

Jasesair

Board Regular
Joined
Apr 8, 2015
Messages
241
Office Version
  1. 2016
I have a drop down list in cell A3 of sheet "End of Season". When I select each item in the list, End of Season updates with the appropriate values. I am trying to loop through each item in the drop down list and then export a range as a pdf. The code does start to loop through and I can see the values changing to suit, but it finished with an error code: Run-time error '-2147024773 (8007007b): Document not saved.

I'm hoping I'm close. Any assistance to rectify would be much appreciated.

VBA Code:
Sub PDFpack()

     Dim inputRange As Range
     Dim c As Range
     Dim strFilename As String
     
     Set inputRange = Evaluate(Range("d3").Validation.Formula1)
               
        For Each c In inputRange
        
            Range("d3").Value = c.Value
       
       With Sheets("Season Summary")
        .PageSetup.Orientation = xlLandscape
    End With
    strFilename = Sheets("Season Summary").Range("Q3") & " as at " & Format(Date, "d-mm-yyyy")
    Set inputRange = Sheets("Season Summary").Range("A1:v39")
    
        Next c
    inputRange.ExportAsFixedFormat Filename:=strFilename, Type:=xlTypePDF, OpenAfterPublish:=True


End Sub
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)

Watch MrExcel Video

Forum statistics

Threads
1,129,987
Messages
5,639,399
Members
417,085
Latest member
Aman2626

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top