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.
Bordro Tüm Personele Ayrı Ayrı PDF Pusula Oluşturma
-
- Mesajlar: 5
- Kayıt: Pzt Tem 24, 2023 4:36 pm
- Lokasyon: İSTANBUL
- Meslek: Muhasebe Uzmanı
- Adınız: MEHMET
- Soyadınız: DÖNMEZ
Bordro Tüm Personele Ayrı Ayrı PDF Pusula Oluşturma
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 5
- Kayıt: Pzt Tem 24, 2023 4:36 pm
- Lokasyon: İSTANBUL
- Meslek: Muhasebe Uzmanı
- Adınız: MEHMET
- Soyadınız: DÖNMEZ
Re: Bordro Tüm Personele Ayrı Ayrı PDF Pusula Oluşturma
Sanırım konu ile ilgili bir önerisi olan yok.
-
- Mesajlar: 133
- Kayıt: Cmt Haz 24, 2023 12:23 am
- Web Sitesi: https://erseldemirel.com.tr/
- Adınız: Ersel
- Soyadınız: Demirel
Re: Bordro Tüm Personele Ayrı Ayrı PDF Pusula Oluşturma
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
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
-
- Mesajlar: 45
- Kayıt: Prş Mar 21, 2024 11:31 am
- Lokasyon: istanbul
- Meslek: Oto Yedek Parça Satış Elemanı
- Adınız: Sinan
- Soyadınız: Aykaç
Re: Bordro Tüm Personele Ayrı Ayrı PDF Pusula Oluşturma
Deneyinizmehmetd yazdı: ↑Sal Eki 08, 2024 12:01 pm 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.
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
-
Ortak Değere Göre Ayrı Bir Excel Dosyası Oluşturma
gönderen soner36 » » forum Genel Makro Paylaşımları - 2 Cevaplar
- 2796 Görüntüleme
-
Son mesaj gönderen soner36
-
-
- 1 Cevaplar
- 1520 Görüntüleme
-
Son mesaj gönderen sahin
-
- 1 Cevaplar
- 1696 Görüntüleme
-
Son mesaj gönderen tasad
-
- 0 Cevaplar
- 1514 Görüntüleme
-
Son mesaj gönderen Beyfendi
-
- 0 Cevaplar
- 1479 Görüntüleme
-
Son mesaj gönderen Gokhan78