Bordro Tüm Personele Ayrı Ayrı PDF Pusula Oluşturma

[mehmetd]

Sn. Arkadaş Hayırlı ve sağlıklı bir hafta diliyorum öncelikle.
Ekte bulunan örnek çalışmam da görüleceği üzere bordro sayfasındaki tüm personele ait ayrı ayrı pdf olarak ücret pusulası oluşturmak istiyorum.
Sitede örnekler var ama kendi çalışmama fazla bilgim olmadığı için uyarlayamadım. Bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

[mehmetd]

Sanırım konu ile ilgili bir önerisi olan yok.

[erseldemirel]

Bu basit kod ile masaüstüne excel dosyası pdf kaydedilir. Bu kod sadece bir kişi için işlem yapar. Bunu zenginleştirmek için çözüm üretmeniz lazım. Buton eklenebilir. Hucre secılebılır hucre tıklantıkdan sonra ona göre kod calısabılır vs.

Sub PDFKaydet()
GetDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Set ws = ThisWorkbook.Sheets("UCRET PUSULASI")
fileNamePdf = GetDesktop & "\" & ThisWorkbook.Sheets("UCRET PUSULASI").Range("B2") & ".pdf"
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileNamePdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Kaydedildi " & ThisWorkbook.Sheets("UCRET PUSULASI").Range("B2")
End Sub

[SNNAY]

Sn. Arkadaş Hayırlı ve sağlıklı bir hafta diliyorum öncelikle.
Ekte bulunan örnek çalışmam da görüleceği üzere bordro sayfasındaki tüm personele ait ayrı ayrı pdf olarak ücret pusulası oluşturmak istiyorum.
Sitede örnekler var ama kendi çalışmama fazla bilgim olmadığı için uyarlayamadım. Bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Deneyiniz