Macro to cycle/loop through 2 x drop-down selection and print to pdf

[magnum55]

Hi,

I have code which loops through one data validation cell (below) and prints all PDFs. However, I need to add another data validation dropdown (cell C7). How can i amend the below code to loop though the first dropdown and print, then through second drop down and print.

Many Thanks

Sub Loop_Through_List_Channel_TA()

Dim cell As Excel.Range
Dim rgDV As Excel.Range
Dim DV_Cell As Excel.Range

Set DV_Cell = Range("c3")

Set rgDV = Application.Range(Mid$(DV_Cell.Validation.Formula1, 2))
For Each cell In rgDV.Cells
DV_Cell.Value = cell.Value
Call PDFActiveSheet
Next
End Sub

Sub PDFActiveSheet_Channel_TA()
Dim ws As Worksheet
Dim myFile As Variant
Dim strFile As String
Dim sFolder As String
On Error GoTo errHandler

Set ws = ActiveSheet

'enter name and select folder for file
' start in current workbook folder
strFile = ws.Range("C5").Value

sFolder = ThisWorkbook.Path
If sFolder = "" Then
MsgBox "No folder selected. Code will terminate."
Exit Sub
End If
myFile = sFolder & "\" & strFile

ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
OpenAfterPublish:=False, _
From:=1, _
To:=2

exitHandler:
Exit Sub
errHandler:
MsgBox "Could not create PDF file"
Resume exitHandler
End Sub

 

[davesexcel]

I see what you are looking for, you really don't have to loop, just write the code a second time