Toplu sertifika yazdırma

[Asri]

Word adres mektup birleştirmeye alternatif, bire bir tam olmasada alternatif olabilir.

Otomatik form, sertifika v.b doldurma işlemlerini yapıp. Mail gönderme, pdf olarak katdetme ve yazdırma işlemleri yapabilir siniz.

http://www.excel.web.tr/f52/excel-otomatik-form-doldurma-ve-gonderme-programy-t160449.html

 

[conqueror7]

sertikada düzeltme

Arkadaslar daha önce yapmış olduğumuz dosyada ac23-am23 aralıgındaki brileştirmeyi daratlmak istiyorum. af23-am23 kadar olsa yetiyor

birleştir ve ortalamdan kendim ayarlayınca içerik değişmiyor yada kayboluyor. bu yüzden içeriğini depodan c2 den aldığı formulü bulup düzeltemedim.
yardımcı olabilirmisiniz..

http://s3.dosya.tc/server10/zhlisj/SERTIFIKA_TEMEL.xls.html

 

[askm]

http://s3.dosya.tc/server10/arfcrf/SERTIFIKA_TEMEL.xls&63015113

 

[askm]

Pardon yanlış oldu.
http://s3.dosya.tc/server10/yn3dq8/SERTIFIKA_TEMEL.xls.html

 

[conqueror7]

Pardon yanlış oldu.
http://s3.dosya.tc/server10/yn3dq8/SERTIFIKA_TEMEL.xls.html

Tesekkurler "askm". fakat nasıl yaptıgınızı anlayamadım. ben o kadar ugrasmama ragmen.. anlatabilirseniz daha cok minnettar kalırım..

sonrasındada şirket ismini (C-AB arasındaki ) yazıyı C-AE arasına uzatıyorum ve yazdır deyince bos çıkıyor. KAfayı yiyeceğim. biri anlat sın sunu nereyi atlıyorum?

 

[askm]

Kodları şu şekilde değiştirin.Bir de Adres kısmına AC23 yazarak hücredeki birleştirmeyi iptal ederek AF23 : AM23 kısmını birleştirin. Sonrasında aşağıdaki kodlar zaten işleminizi yapacaktır. Ya da bir defalığına kodların başına
Range("AC:AM23").UnMerge 'Birleşimi iptal eder
Range("AF23:AM23").Merge 'AF23 - AM23 aralığını birleştirir.
yazın.

Sub belgeYaz()
For i = 2 To Sheets("DEPO").[A65536].End(xlUp).Row
Sheets("BELGE").Range("AW23,AF23,BB16,BB17,BB18").Select
    Selection.ClearContents
    Sheets("BELGE").Cells(23, 49).Value = Sheets("DEPO").Cells(i, 2).Value
    Sheets("BELGE").Cells(23, 32).Value = Sheets("DEPO").Cells(i, 3).Value
    Sheets("BELGE").Cells(17, 54).Value = Sheets("DEPO").Cells(i, 4).Value
    Sheets("BELGE").Cells(18, 54).Value = Sheets("DEPO").Cells(i, 5).Value
    Sheets("BELGE").Cells(16, 54).Value = Sheets("DEPO").Cells(i, 6).Value
    
    
'-----------------------------  YAZICIYA   -----------------------------------
    If Application.Dialogs(xlDialogPrintPreview).Show = False Then
        MsgBox "Yazdırma İşlemi İptal Edildi !", vbExclamation, "UYARI"
    Else
        MsgBox "belgeniz Yazdırıldı.", vbInformation, "BİLGİ"
    End If
If MsgBox("Yazdırmaya Devam Edecek misiniz?  ", vbYesNo + vbQuestion, "YAZDIRMAYA DEVAM MI?") = vbNo Then Exit For
Next i
End Sub

Sub SormadanYaz()
For i = 2 To Sheets("DEPO").[A65536].End(xlUp).Row
Sheets("BELGE").Range("AW23,AF23,BB16,BB17,BB18").Select
    Selection.ClearContents
    Sheets("BELGE").Cells(23, 49).Value = Sheets("DEPO").Cells(i, 2).Value
    Sheets("BELGE").Cells(23, 32).Value = Sheets("DEPO").Cells(i, 3).Value
    Sheets("BELGE").Cells(17, 54).Value = Sheets("DEPO").Cells(i, 4).Value
    Sheets("BELGE").Cells(18, 54).Value = Sheets("DEPO").Cells(i, 5).Value
    Sheets("BELGE").Cells(16, 54).Value = Sheets("DEPO").Cells(i, 6).Value
    
'-----------------------------  YAZICIYA   -----------------------------------
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub

 

[conqueror7]

Kodları şu şekilde değiştirin.Bir de Adres kısmına AC23 yazarak hücredeki birleştirmeyi iptal ederek AF23 : AM23 kısmını birleştirin. Sonrasında aşağıdaki kodlar zaten işleminizi yapacaktır. Ya da bir defalığına kodların başına
Range("AC:AM23").UnMerge 'Birleşimi iptal eder
Range("AF23:AM23").Merge 'AF23 - AM23 aralığını birleştirir.
yazın.

askm cok teşekkürler güzel anlatmıssınız fakat benim makro bilgisi olmadığı için kodu nereye yazıp nereden sileceğim bulamadım. Ben exceldeki gibi normal formül oldugunu düşünüyordum.
Sizden son isteğim dosyadaki

şirket ismini (C-AB arasındaki ) yazıyı C-AE arasına uzatabilirmisiniz? bu şekilde dosyayı tekrar gönderirseniz cok minnettar kalırım. teşekkür ederim..

 

[askm]

http://s3.dosya.tc/server11/mc0shy/SERTIFIKA_TEMEL__1_.xls.html

 

[conqueror7]

Teşekkurler "askm"..
Bu makroları en kısa sürede ögrenmek istiyorum ama sıfırdan nasıl veya nereden başlamalıyım. En azından basit işlerimi halledecek kadar.

 

[irembircan]

Word'ün Adres-Mektup birleştir özelliğiyle yapabilirsiniz (Tam olarak bu iş içindir zaten).

bu özelliği çalıştırdığınızda size önce veri kaynağını sorar, ordan excel dosyanızı gösterin, sonra exceldeki sütunların word dosyasında nereye ekleneceğini ayrı ayrı ayarlayın, son olarak da birleştirmeyi bitirin. Yazdırırken ister topluca ister ayrı ayrı yazdırabilirsiniz.

Ben bu özelliği kullandım ama son adımda ş hatayı aldım: "Belge adres mektup birleştirme alanları içermediğinden, adres mektup birleştirme işlemi tamamlanamadı." Yardımcı olursanız çok sevinirim.

 

[ckarabacak]

Arkadaşlar Merhaba

Sertifika Matbaa da hazırlanmış bir belge olarak düşünürsek sadece eğitim tarihi ve kişi adı soyadı yazılması gerekmiyor mu? Yoksa her farklı eğitim için hem sertifika şablonu oluşturmak ve Ad Soyadı ile Eğitim tarihi mi yazdırılmaya çalışılıyor. Soru Sahibi bu konuda bilgi verebilir mi ltf.

 

[YUSUF44]

Ben bu özelliği kullandım ama son adımda ş hatayı aldım: "Belge adres mektup birleştirme alanları içermediğinden, adres mektup birleştirme işlemi tamamlanamadı." Yardımcı olursanız çok sevinirim.

Sayfaya alan ekleme işlemini yapmamış ya da yanlış yapmış olabilir misiniz?