Need a Macro to convert excel tabs into PDF

[Umareddy]

Hello Mr.Excel

I have multiple set of workbooks where the file name is standard except first two letters.
In each workbook I have multiple tabs where the tab names are standard across the multiple workbooks.

I am looking for an macro to convert the excel tabs into separate PDF files.
Particularly I am looking for the option of selection, where I should select the workbook names from the list as well as tab names from the list. Only selected tabs should be converted into PDF(separately) and save in the folder against the tab name. These PDF sheets should be saved in the separate folders when I select the multiple workbook.

As I mentioned workbook names are different and tab names are standard across the multiple workbooks.

I searched multiple posts from google and don't see any which would suffice my requirements.

It would be great help if you could help me in this.

Thanks,
Uma

 

[kweaver]

Might want to review this post:

https://www.mrexcel.com/forum/excel-questions/1101899-excel-pdf-naming-convention.html

 

[Umareddy]

Might want to review this post:

https://www.mrexcel.com/forum/excel-questions/1101899-excel-pdf-naming-convention.html

@kweaver - in the given post - it converts only active sheet. I wanted to get the sheets get's converted without opening manually original excel file

 

[kweaver]

You are correct...I thought you might use that info to wrap around a loop through your sheets per workbook.

 

[Umareddy]

You are correct...I thought you might use that info to wrap around a loop through your sheets per workbook.

ok.. thanks. Can you please help me to add or create the loop, since I am not familiar with the VBA coding

 

[kweaver]

I think this will work:

Sub AllSheetsToPDF()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
 ws.Activate
 If WorksheetFunction.CountA(Cells) = 0 Then
 MsgBox "Sheet: " & (ActiveSheet.Name) & " is empty"
 Else
 SaveasPDF
 End If
Next ws
End Sub

 

[Umareddy]

Hey Thanks again. From above coding I understood that it will PDF all the sheets except the empty sheet.

In my excel workbook I have more than 50 sheets which have the data. Around 40 sheets have raw data and 10+ sheets have the summary dashboards which is derived by using the raw data. I may wanted to PDF only summary slide sheets not the raw data sheets.

Can you please help!