Trying to save Excel unhide worksheets as pdf VBA code

[Jasperlee93]

anyone helps me please?
When I am working, I am using vba for saving excel each worksheets as pdf.
Sometimes, I don't need specific worksheets to be saved as PDF.

Please help ( :

 

[earthworm]

anyone helps me please?
When I am working, I am using vba for saving excel each worksheets as pdf.
Sometimes, I don't need specific worksheets to be saved as PDF.

Please help ( :

Can you please share the code here.

 

[Jasperlee93]

Sub ExportPDF()

Dim FDialog As FileDialog
Dim FPath As String
Dim Sht As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set FDialog = Application.FileDialog(msoFileDialogFolderPicker)
FDialog.InitialFileName = ThisWorkbook.Path

If FDialog.Show = -1 Then
FPath = FDialog.SelectedItems(1)
End If

If FPath <> "" Then

For Each Sht In ThisWorkbook.Sheets
Sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath _
& Application.PathSeparator & Sht.Name & ".pdf"
Next Sht

End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


above vba code is what I am currently using.

 

[Jasperlee93]

Can you please share the code here.

Sub ExportPDF()

Dim FDialog As FileDialog
Dim FPath As String
Dim Sht As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set FDialog = Application.FileDialog(msoFileDialogFolderPicker)
FDialog.InitialFileName = ThisWorkbook.Path

If FDialog.Show = -1 Then
FPath = FDialog.SelectedItems(1)
End If

If FPath <> "" Then

For Each Sht In ThisWorkbook.Sheets
Sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath _
& Application.PathSeparator & Sht.Name & ".pdf"
Next Sht

End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


above vba code is what I am currently using.

 

[earthworm]

Sub ExportPDF()

Dim FDialog As FileDialog
Dim FPath As String
Dim Sht As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set FDialog = Application.FileDialog(msoFileDialogFolderPicker)
FDialog.InitialFileName = ThisWorkbook.Path

If FDialog.Show = -1 Then
FPath = FDialog.SelectedItems(1)
End If

If FPath <> "" Then

For Each Sht In ThisWorkbook.Sheets
Sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath _
& Application.PathSeparator & Sht.Name & ".pdf"
Next Sht

End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


above vba code is what I am currently using.

The macro is extracting each sheet regardless if data is present or not . Is your sheet name and number of sheets are fixed ?
What is the first cell address for each sheet based on which you willl save it into pdf.

 

[Jasperlee93]

The macro is extracting each sheet regardless if data is present or not . Is your sheet name and number of sheets are fixed ?
What is the first cell address for each sheet based on which you willl save it into pdf.

Thanks you for replying.

Is your sheet name and number of sheets are fixed ?
Nope, each sheet name can change and the number as well

What is the first cell address for each sheet based on which you willl save it into pdf.
The first cell address is A1

thanks!