VBA to copy details from excel and save as PDF

Dear Team,
Need your help please.

I have a file with associates and their respective project details. Column E has the project ID details.

The manual activity that I does is, I filter a project ID and then copy all the details related to that project to a new excel file and then save it as PDF file in a desktop folder. Repeat the same for next project ID. So if there are 10 Project IDs in the file, I create 10 PDF Files.

Need help with a macro code to automate this. Sample file attached.



There is another similar activity that I does for which I already have the code. However in this activity after filtering the project ID in a column, the details are saved as an Excel file and not PDF.

Below is the code for that for reference.

Please Login or Register  to view this content.

Originally Posted by sintek

Please Login or Register  to view this content.

Thank you so much.

The data is being saved as PDF but only the header is available in the PDF. Screenshot attached. After filtering one project ID, expectation is to paste all the available details and save as PDF.

Can you please help.

Attachment 691703

Originally Posted by sintek

Not with the sample file...see result...


Try this ... small change...

Please Login or Register  to view this content.

Thank you so much... This is working perfectly fine..

Not with the sample file, but when i tried in different file, the project ID is not displayed completely.. Like we need to do an "Auto fit". Screenshot attached. Requesting your help again..

Attachment 691707

No need to quote entire posts if there is only Me and You in thread

Sure.. Thanks for guiding me on this..

When the name of associate or Project is lengthy, the data in column F goes to the second sheet. The columns are going to be only till F but the length of the names can change. Can you please help.. so all data till column F is pasted as in one table..

Attached the sample file and the pdf file.

Parent.Range("A1:F" & lr).ExportAsFixedFormat xlTypePDF, Path & Data(i, 5) & "-" & Format(Now(), "dd-mm-yyyy hhmmAMPM"), xlQualityStandard, IncludeDocProperties

Thank you so much..