Soru Bordrodaki Tüm Personele 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.

 

[hasankardas]

Merhabalar,
bir kaç satırı düzenledim diğer formülleri siz ayarlarsınız. b2 den seçince istediğiniz personele ait bordro oluşturabilirsiniz.

UCRET_Pusulasi_v1.0.2024.xlsm dosyasını indir - download

UCRET_Pusulasi_v1.0.2024.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[airborne]

Merhabalar,
bir kaç satırı düzenledim diğer formülleri siz ayarlarsınız. b2 den seçince istediğiniz personele ait bordro oluşturabilirsiniz.

Harici bir siteye yükleyebilrmsiniz

 

[hasankardas]

Harici bir siteye yükleyebilrmsiniz

UCRET_Pusulasi_v1.0.2024.xlsm dosyasını indir - download

UCRET_Pusulasi_v1.0.2024.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[mehmetd]

Sn.Hasan Bey teşekkür ederim.
Fakat sadece bir personel için değil örneğin listede 40 personel var hepsi için ayrı ayrı Örnek : Personel_Adı Soyadı_EYLÜL_2024_Ücret_Pusulası.pdf şeklinde olacak şekilde hepsi için oluşturabilecek bir çalışma lazım.

 

[hasankardas]

Sn.Hasan Bey teşekkür ederim.
Fakat sadece bir personel için değil örneğin listede 40 personel var hepsi için ayrı ayrı Örnek : Personel_Adı Soyadı_EYLÜL_2024_Ücret_Pusulası.pdf şeklinde olacak şekilde hepsi için oluşturabilecek bir çalışma lazım.

seçtiğiniz her personele ayrı ayrı bordro oluşturuyor.

 

[mehmetd]

Sn. Hasan Bey hiç elle müdahale seçim yapmadan şablona uygun olarak tüm personele ait Personel_Adı Soyadı_EYLÜL_2024_Ücret_Pusulası.pdf şeklinde bir çalışma istemiştim. Zamandan kazanmak için.

 

[tukayf]

Sub PDF()
    Dim bordro As Worksheet
    Dim ucret As Worksheet
    Dim isimler As Range
    Dim isim As Range
    Dim dosyaAdi As String
    Dim klasorYolu As String
    
     Set bordro = ThisWorkbook.Sheets("Bordro")
    Set ucret = ThisWorkbook.Sheets("Ucret Pusulası")
      
    Set isimler = bordro.Range("B2:B" & bordro.Cells(bordro.Rows.Count, "B").End(xlUp).Row)
        klasorYolu = "C:\Users\Tuncer\Desktop\Ucret\" ' Kaydedilecek klasör yolunu buraya yazın
    
 
    For Each isim In isimler
            ucret.Range("B2").Value = isim.Value
        dosyaAdi = klasorYolu & isim.Value & ".pdf"
               ucret.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaAdi, Quality:=xlQualityStandard, _
                                                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
    Next isim
        MsgBox "Tüm pusulalar PDF olarak kaydedildi."
End Sub

umarım doğru anlamışımdır.

 

[mehmetd]

Sn. tukayf çok teşekkür ederim tam istediğim gibi olmuş. Bereketli ve Sağlıklı günler dilerim.