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
-
- 1 Cevaplar
- 1766 Görüntüleme
-
Son mesaj gönderen tasad
-
-
bir sütundaki değerleri başka bi sürunda benzersiz başlıklı filtre oluşturma
gönderen Kullanıcı Silindi 832 » » forum Formüller - 1 Cevaplar
- 50 Görüntüleme
-
Son mesaj gönderen Kullanıcı Silindi 832
-
-
- 0 Cevaplar
- 1626 Görüntüleme
-
Son mesaj gönderen Beyfendi
-
- 0 Cevaplar
- 1566 Görüntüleme
-
Son mesaj gönderen Gokhan78
-
- 0 Cevaplar
- 2168 Görüntüleme
-
Son mesaj gönderen 1903emre