Loop through data validation list and create PDF files

Jasesair

Board Regular
Joined
Apr 8, 2015
Messages
230
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

Create a chart in one keystroke
Select the data and press Alt+F1 to insert a default chart. You can change the default chart to any chart type

Watch MrExcel Video

Forum statistics

Threads
1,129,502
Messages
5,636,694
Members
416,935
Latest member
Atulcp

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