Save sheets from query to seperate Pdf Files choose location

[Dedeke]

Hello, (surtenly Fluff)

I have been reading a lot over here about saving sheet to pdf but still did not came to solution.
So i have a sheet called "Data".
Depending on colum C i run a query which is displayed on the same sheet"Data"
Now i only want to print the sheets of query result.
Info: If name in colum A changes also the sheetname changes in same way.
What i got this far( found and used from this forum) is this code which print all of my sheets.
Any solution would be great and helpfull.

Thx already

Sub Exportalltopdf()


Dim Folder_Path As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Selecteer de gewenste folder"

If .Show = -1 Then Folder_Path = .SelectedItems(1)
End With

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
 sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.name & ".pdf"
 Next
 
 MsgBox " Files saved"

End Sub

 

[Dedeke]

sorry for all off your time,

Found a solution saving separate pdf from sheets depending on a cell value on each sheet.
Used following code:

Public Sub Create_PDFs()
  'To choose where to save the file'
Dim Folder_Path As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Selecteer de gewenste folder"

If .Show = -1 Then Folder_Path = .SelectedItems(1)

End With
  'To veryfy if cell D5 on each sheet has the value "P" or "D" if so save them'
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
            If ws.Range("D5").Value = "P" Then
                ws.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & ws.Name & ".pdf"
            Else
            If ws.Range("D5").Value = "D" Then
                ws.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & ws.Name & ".pdf"
            Else
    End If
    End If
    Next
    MsgBox "All saved I guess"

End Sub

This on saves all my sheets from "P" pilots and "D" duo's