Macro To save as PDF of employee payslips

Hi all,

i have a sheet of excel with employee payment details. In another sheet i have a template of the payslip of company. currently i have mapped the details of first sheet to the second sheet using vlookup. For every employee i change the emp id and save it as pdf with their employee id. i want it to be done for the whole employee list using a macro and the pdfs to be saved in a folder. If you want any other details please comment. I have attached a sheet for reference. It is similar to it. In it the macro is for printing the sheets whereas i want it for to save as pdf. Please help guys.

PAYSLIPS.xlsm

Hi
Try the attached workbook.
Hope it helps.
Good luck.
Tony

Thanks dude. But that is where i am getting the problem. PDFs are getting overwritten and the last pdf alone is available instead of multiple files.

Please Login or Register  to view this content.

That's what I use to export the current sheet as a PDF. You could loop that and select whatever it is perhaps?

Guys i am posting the sheet here. First sheet has the employee details. Second sheet have the template. My aim is to save pdfs of templates of all the employee in the list using a macro.

currently i am doing it as

1. In sheet 2, I lookup each employee using the serial number at the top left corner cell of the template.
2. Once the details are updated in sheet 2 i save it as pdf in my desktop.

Kindly help me.

Thanks for all the guys for their replies :-)

Hi
In the example I posted individual pdf's are created for each employee.
Tony

Strange as it runs perfectly on my machine. Can you send a screeshot of your error.
Tony

please find the error Tony.

Thanks in advance.

please find the screenshot in the thread Tony. thanks in advance

Hi
Thanks for the screenshot. Have you created a directory called "Payslips" on your "D" drive?
Tony

Thanks TONY. It works perfectly. I didnt create a folder previously. Thanks . I am new to macros. thanks for helping me out.

One more doubt in the code.. you have calculate the array length using

Set rRng = .Range(.Cells(5, 1), .Cells(.Rows.Count, 1).End(xlUp))

whats that 5 and 1 cells denoting? of whic sheet?

Hi
Glad it is working okay now.
That determines what the last populated row number in Sheet1 i.e. how many employees dos the program have to create payslips for.
Cells(5, 1) means - row 5 column 1.
Hope this helps.
Tony

Thanks Tony. For educating me. Really nice of you :-)

Tony can you help me with this query ?

Now that i have a set of PDF files saved in a local folder saved as their respective employee id. I have an excel sheet with employee ids pointing towards their mail id. i have configured outlook. Can you help me how to create a macro to send automated emails with their respective attachments.?

Thanks in advance.

Got the answer for the query in other posts thanks guys !!

Hi tony,

I am use the Same code but i am created only one employee could you please help me.

Originally Posted by yemnirmal

Got the answer for the query in other posts thanks guys !!

Yemnirmal, can you please share the code on the automated saved pdf to outlook email?